Multiple-Precision Binary Comparison 

(MPBCMP) 



Compares two multi-byte unsigned binary 
numbers and sets the Carry and Zero flags 
appropriately. The Zero flag is set to 1 if the 
operands are equal and to if they are not 
equal. The Carry flag is set to if the operand 
with the address higher in the stack (the 
subtrahend) is larger than the other operand 
(the minuend); the Carry flag is set to 1 
otherwise. Thus, the flags are set as if the 
subtrahend had been subtracted from the 
minuend. 

Procedure: The program compares the 
operands one byte at a time, starting with the 
most significant bytes and continuing until it 
finds corresponding bytes that are not equal. 
If all the bytes are equal, it exits with the Zero 
flag set to 1. Note that the comparison works 
through the operands starting with the most 
significant bytes, whereas the subtraction 
(Subroutine 6G) starts with the least signifi- 
cant bytes. 



6J 



Registers Used: All 

Execution Time: 17 cycles per byte that must be 
compared plus 90 cycles overhead. That is, the 
program continues until it finds corresponding 
bytes that are not equal; each pair of bytes it must 
examine requires 17 cycles. 

Examples: 

1. Comparing two 6-byte numbers that are equal 
17 x 6 + 90 = 192 cycles 

2. Comparing two 8-byte numbers that differ in 
the next to most significant bytes 

17 x 2 + 90 = 124 cycles 

Program Size: 54 bytes 

Data Memory Required: Two bytes anywhere in 
RAM and four bytes on page 0. The two bytes 
anywhere in RAM are temporary storage for the 
return address (starting at address RETADR). 
The four bytes on page hold pointers to the two 
numbers; the pointers start at addresses 
MINPTR (00D0 ]6 in the listing) and SUBPTR 
(00D2 16 in the listing). 

Special Case: A length of zero causes an 
immediate exit with the Carry flag and the Zero 
flag both set to 1. 



Entry Conditions 

Order in stack (starting from top) 

Less significant byte of return address 
More significant byte of return address 
Length of the operands in bytes 

Less significant byte of starting address of 

subtrahend (address containing the least 

significant byte) 
More significant byte of starting address of 

subtrahend (address containing the least 

significant byte) 

Less significant byte of starting address of 
minuend (address containing the least sig- 



Exit Conditions 

Flags set as if subtrahend had been 
subtracted from minuend 

Zero flag = 1 if subtrahend and minuend are 
equal, if they are not equal 

Carry flag = if subtrahend is larger than 
minuend in the unsigned sense, 1 if it is less 
than or equal to the minuend. 
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nificant byte) 
More significant byte of starting address of 
minuend (address containing the least sig- 
nificant byte) 



Examples 



1. Data: 



Result: 



2. Data: 



Result: 



Length of operands (in bytes) = 6 

Top operand (subtrahend) = 

19D028A193EA 16 

Bottom operand (minuend) = 

4E67BC15A266 16 

Zero flag = (operands are 
not equal) 

Carry flag = 1 (subtrahend is 
not larger than minuend) 

Length of operands (in bytes) 

= 6 

Top operand (subtrahend) = 

19D028A193EA 16 

Bottom operand (minuend) = 

19D028A193EA 16 

Zero flag = 1 (operands are equal) 
Carry flag = 1 (subtrahend is 
not larger than minuend) 



3. Data: 



Result: 



Length of operands (in bytes) = 6 

Top operand (subtrahend) = 

19D028A193EA 16 

Bottom operand (minuend) = 

OF37E5991D7C 16 

Zero flag = (operands are not equal) 
Carry flag = (subtrahend is larger 
than minuend) 



Title 
Name: 



Purpose: 
Entry: 



Multiple-Precision Binary Comparision 
MPBCMP 



Compare 2 arrays of binary bytes and return 
the CARRY and ZERO flags set or cleared 

TOP OF STACK 

Low byte of return address, 

High byte of return address, 

Length of the arrays in bytes, 

Low byte of array 2 (subtrahend) address, 

High byte of array 2 (subtrahend) address, 

Low byte of array 1 (minuend) address, 

High byte of array 1 (minuend) address 
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Exit: 



Time: 



Size: 



; EQUATES 

MINPTR: .EQU ODOH 

SUBPTR: .EQU 0D2H 



MPBCMP: 



The arrays are unsigned binary numbers with a 
maximum length of 255 bytes, ARRAY [0] is the 
least significant byte, and ARRAY [LENGTH-1] 
the most significant byte. 

IF ARRAY 1 = ARRAY 2 THEN 

C=1,Z=1 
IF ARRAY 1 > ARRAY 2 THEN 

C=1,Z=0 
IF ARRAY 1 < ARRAY 2 THEN 

C=0,Z=0 



Registers used: All 



17 cycles per byte that must be examined 
plus 90 cycles overhead. 

Program 54 bytes 
Data 2 bytes plus 

4 bytes in page zero 



;PAGE ZERO FOR ARRAY 1 POINTER 
;PAGE ZERO FOR ARRAY 2 POINTER 



;SAVE RETURN ADDRESS 

PLA 

STA RETADR 

PLA 

STA RETADR+1 

;GET LENGTH OF ARRAYS 

PLA 

TAY 



;SAVE RETURN ADDRESS 



£GET ADDRESS OF SUBTRAHEND AND SUBTRACT 1 TO SIMPLIFY INDEXING 

SEC 

S^A S # UBPTR ; SUBTRACT 1 FROM LOW BYTE 

PLA 

STA SUBPTR+1 .'SUBTRACT ANY BORROW FROM HIGH BYTE 

;GET ADDRESS OF MINUEND AND ALSO SUBTRACT 1 

PLA 

SEC 

fj? #1 ; SUBTRACT 1 FROM LOW BYTE 

STA MINPTR 

PLA 

STA MINPTR+1 '-SUBTRACT ANY BORROW FROM HIGH BYTE 
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LOOP: 



EXIT: 



; RESTORE RETURN ADDRESS 


LDA 


RETADR+1 


PHA 




LDA 


RETADR 


PHA 




; INITIALIZE 


CPY 


#0 


BEQ 


EXIT 


LDA 


(MINPTR) ,Y 


CMP 


(SOBPTR) ,Y 


BNE 


EXIT 


DEY 




BNE 


LOOP 



;IS LENGTH OF ARRAYS = ? 
;YES, EXIT WITH C=1,Z=1 



GET NEXT BYTE 

COMPARE BYTES 

EXIT IF THEY ARE NOT EQUAL, THE FLAGS ARE SET 

DECREMENT INDEX 

CONTINUE UNTIL COUNTER =0 

IF WE FALL THROUGH THEN THE ARRAYS ARE EQUAL 

AND THE FLAGS ARE SET PROPERLY 



RTS 



;DATA 

RETADR .BLOCK 2 



SAMPLE EXECUTION: 



; TEMPORARY FOR RETURN ADDRESS 



SC0610 





LDA 
PHA 
LDA 
PHA 


AYlADR+1 
AYlADR 




LDA 
PHA 
LDA 
PHA 


AY2ADR+1 
AY2ADR 




LDA 
PHA 
JSR 
BRK 


#SZAYS 
MPBCMP 




JMP 


SC0610 


SZAYS: 


• EQU 


7 


AYlADR: 
AY2ADR: 


.WORD 
.WORD 


AY1 
AY 2 



;PUSH AY1 ADDRESS 



;PUSH AY2 ADDRESS 



PUSH SIZE OF ARRAYS 

MULTIPLE-PRECISION BINARY COMPARISON 
RESULT OF COMPARE (7654321H , 1234567H ) IS 
C=1,Z=0 



;SIZE OF ARRAYS 

; ADDRESS OF ARRAY 1 (MINUEND) 
;ADDRESS OF ARRAY 2 (SUBTRAHEND) 



AY1: 
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AY2: 



BYTE 


021H 


BYTE 


043H 


BYTE 


065H 


BYTE 


007H 


BYTE 





BYTE 





BYTE 





BYTE 


067H 


BYTE 


045H 


BYTE 


023H 


BYTE 


001H 


BYTE 





BYTE 





BYTE 





END 


; PROGRAM 



Multiple-Precision Decimal Addition 

(MPDADD) 



6K 



Adds two multi-byte unsigned decimal 
numbers. Both numbers are stored with their 
least significant digits at the lowest address. 
The sum replaces one of the numbers (the 
one with the starting address lower in the 
stack). The length of the numbers (in bytes) 
is 255 or less. The program returns with the 
Decimal Mode (D) flag cleared (binary 
mode) . 

Procedure: The program first enters the 
decimal mode by setting the D flag. It then 
clears the Carry flag initially and adds the 
operands one byte (two digits) at a time, 
starting with the least significant digits. The 
sum replaces the operand with the starting 
address lower in the stack (array 1 in the list- 
ing). A length of 00 causes an immediate exit 
with no addition operations. The program 
clears the D flag (thus placing the processor 
in the binary mode) before exiting. The final 



Registers Used: All 

Execution Time: 23 cycles per byte plus 82 cycles 
overhead. For example, adding two 8-byte (16- 
digit) operands takes 23 x 8 + 86 or 270 cycles. 

Program Size: 50 bytes 

Data Memory Required: Two bytes anywhere in 
RAM and four bytes on page 0. The two bytes 
anywhere in RAM are temporary storage for the 
return address (starting at address RETADR). 
The four bytes on page hold pointers to the two 
operands; the pointers start at addresses 
AY1PTR (00D0 16 in the listing) and AY2PTR 
(00D2, 6 in the listing). 

Special Case: A length of zero causes an 
immediate exit with array 1 unchanged (that is, 
the sum is equal to bottom operand). The 
Decimal Mode flag is cleared (binary mode) and 
the Carry flag is set to 1. 



Carry flag reflects the addition of the most 
significant digits. 



Entry Conditions 

Order in stack (starting from top) 

Less significant byte of return address 
More significant byte of return address 

Length of the operands in bytes 

Less significant byte of starting address of 
second operand (address containing the 
least significant byte of array 2) 

More significant byte of starting address of 
second operand (address containing the 
least significant byte of array 2) 

Less significant byte of starting address of 
first operand and result (address contain- 
ing the least significant byte of array 1) 



Exit Conditions 

First operand (array 1) replaced by 
first operand (array 1) plus 
second operand (array 2). 

D flag set to zero (binary mode). 
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More significant byte of starting address of 
first operand and result (address contain- 
ing the least significant byte of array 1) 



Example 

Data: Length of operands (in bytes) = 6 

Top operand (array 2) = 196028819315 16 
Bottom operand (array 1) = 
293471605987 16 

Result: Bottom operand (array 1) = Bottom 

operand (array 1) + Top operand 
(array 2) = 489500425302 l6 
Carry = 0, Decimal Mode flag = 
(binary mode) 



Title Multiple-Precision Decimal Addition 

Name: MPDADD 



Purpose: Add 2 arrays of BCD bytes 
Arrayl := Arrayl + Array2 

Entry: TOP OF STACK 

Low byte of return address, 
High byte of return address, 
Length of the arrays in bytes, 
Low byte of array 2 address, 
High byte of array 2 address, 
Low byte of array 1 address, 
High byte of array 1 address 

The arrays are unsigned BCD numbers with a 
maximum length of 255 bytes, ARRAY [0] is the 
least significant byte, and ARRAY [LENGTH-1] 
the most significant byte. 

Ex it: Arrayl := Arrayl + Array2 

Registers used: All 

Time: 23 cycles per byte plus 86 cycles 

overhead. 
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Size: 



Program 50 bytes 
Data 2 bytes plus 

4 bytes in page zero 



; EQUATES 


AY1PTR: 


. EQU 0D0H 


AY2PTR: 


.EQU 0D2H 


MPDADD: 






;SAVE RETURN ADDRESS 




PLA 




STA RETADR 




PLA 




STA RETADR+1 




;GET LENGTH OF ARRAYS 




PLA 




TAX 



;PAGE ZERO FOR ARRAY 1 POINTER 
;PAGE ZERO FOR ARRAY 2 POINTER 



;GET STARTING ADDRESS OF ARRAY 2 

PLA 

STA AY2PTR 

PLA 

STA AY2PTR+1 

;GET STARTING ADDRESS OF ARRAY 1 

PLA 

STA AY1PTR 

PLA 

STA AY1PTR+1 



LOOP: 



; RESTORE RETURN ADDRESS 


LDA 


RETADR+1 


PHA 




LDA 


RETADR 


PHA 




; INITIALIZE SUM AND DECIM 


LDY 


#0 


CPX 


#0 


BEQ 


exit ; 


SED 




CLC 




LDA 


(AY1PTR),Y 


ADC 


(AY2PTR),Y ; 


STA 


(AY1PTR),Y 


INY 




DEX 




BNE 


LOOP ; 



IS LENGTH OF ARRAYS = 
BRANCH IF LENGTH IS 
SET DECIMAL MODE 
CLEAR CARRY 



GET NEXT BYTE 

ADD BYTES 

STORE SUM 

INCREMENT ARRAY INDEX 

DECREMENT COUNTER 

CONTINUE UNTIL COUNTER = 



EXIT: 



CLD 



; RETURN IN BINARY MODE 



RTS 
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;DATA 

RETADR . BLOCK 2 



; TEMPORARY FOR RETURN ADDRESS 



SAMPLE EXECUTION: 



SC0611: 



LDA 
PHA 
LDA 
PHA 

LDA 
PHA 
LDA 
PHA 

LDA 
PHA 
JSR 
BRK 



AY1ADR+1 
AY1ADR 

AY2ADR+1 
AY2ADR 

#SZAYS 
MPDADD 





JMP 


SC0611 


SZAYS: 


.EQU 


7 


AY1ADR: 


.WORD 


AY1 


AY2ADR: 


.WORD 


AY2 


AY1: 








.BYTE 


067H 




.BYTE 


045H 




. . BYTE 


023H 




• BYTE 


001H 




• BYTE 







.BYTE 







.BYTE 





AY2: 








.BYTE 


067H 




.BYTE 


045H 




.BYTE 


023H 



;PUSH AY1 ADDRESS 



;PUSH AY2 ADDRESS 



PUSH SIZE OF ARRAYS 
MULTIPLE-PRECISION BCD ADDITION 
RESULT OF 1234567 + 1234567 = 2469134 
IN MEMORY AY1 = 34H 

AY1+1 = 91H 

AY1+2 = 46H 

AY1+3 = 02H 

AY1+4 = 00H 

AY1+5 = 00H 

AYl+6 = 00H 



;S1ZE OF ARRAYS 

; ADDRESS OF ARRAY 1 
; ADDRESS OF ARRAY 2 
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.BYTE 001H 

.BYTE 

.BYTE 

. BYTE 

. END ; PROGRAM 



Multiple-Precision Decimal Subtraction 

(MPDSUB) 



6L 



Subtracts two multi-byte unsigned 
decimal numbers. Both numbers are stored 
with their least significant digits at the lowest 
address. The starting address of the 
subtrahend (number to be subtracted) is 
stored on top of the starting address of the 
minuend (number from which the 
subtrahend is subtracted). The difference 
replaces the minuend in memory. The length 
of the numbers (in bytes) is 255 or less. The 
program returns with the Decimal Mode (D) 
flag cleared (binary mode). 

Procedure: The program first enters the 
decimal mode by setting the D flag. It then 
sets the Carry flag (the inverted borrow) 
initially and subtracts the subtrahend from 
the minuend one byte (two digits) at a time, 
starting with the least significant digits. The 
final Carry flag reflects the subtraction of the 
most significant digits. The difference re- 
places the minuend (the operand with the 
starting address lower in the stack, array 1 in 



Registers Used: All 

Execution Time: 23 cycles per byte plus 86 cycles 
overhead. For example, subtracting two 8-byte 
(16-digit) operands takes 23 x 8 + 86 or 270 
cycles. 

Program Size: 50 bytes 

Data Memory Required: Two bytes anywhere in 
RAM and four bytes on page 0. The two bytes 
anywhere in RAM are temporary storage for the 
return address (starting at address RETADR). 
The four bytes on page hold pointers to the two 
operands; the pointers start at addresses 
AY1PTR (00D0 16 in the listing) and AY2PTR 
(00D2 16 in the listing). 

Special Case: A length of zero causes an 
immediate exit with the difference equal to the 
original minuend, the Decimal Mode flag cleared 
(binary mode), and the Carry flag set to 1. 



the listing) . A length of 00 causes an immedi- 
ate exit with no subtraction operations. The 
program clears the D flag (thus placing the 
processor in the binary mode) before exiting. 



Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 

Length of the operands in bytes 

Less significant byte of starting address of 

subtrahend (address containing the least 

significant byte of array 2) 
More significant byte of starting address of 

subtrahend (address containing the least 

significant byte of array 2) 

Less significant byte of starting address of 



Exit Conditions 

Minuend (array 1) replaced by minuend 
(array 1) minus subtrahend (array 2). 

D flag set to zero (binary mode). 
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minuend (address containing the least sig- 
nificant byte of array 1) 
More significant byte of starting address of 
minuend (address containing the least sig- 
nificant byte of array 1) 



Example 

Data: Length of operands (in bytes) = 6 
Minuend (array 1) = 293471605987 16 
Subtrahend (array 2) = 196028819315, 6 

Result: Difference (array 1) = 097442786672, 6 . 

This number replaces the original minuend 

in memory. The Carry flag is set to 1 in accordance 

with its usual role (in 6502 programming) 

as an inverted borrow. 

Decimal Mode flag = (binary mode) 



Title Multiple-Precision Decimal Subtraction 

Name: MPDSUB 



Purpose: Subtract 2 arrays of BCD bytes 
Minuend := Minuend - Subtrahend 

Entry: TOP OF STACK 

Low byte of return address, 
High byte of return address, 
Length of the arrays in bytes. 
Low byte of subtrahend address, 
High byte of subtrahend address, 
Low byte of minuend address, 
High byte of minuend address 



The arrays are unsigned BCD numbers with a 
maximum length of 255 bytes, ARRAY [0] is the 
least significant byte, and ARRAY [LENGTH-1] 
the most significant byte. 



Exit: Arrayl := Arrayl - Array2 

Registers used: All 
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Time: 



Size: 



; EQUATES 

MINPTR: .EQU ODOH 

SUBPTR: .EQU 0D2H 



23 cycles per byte plus 86 cycles 
overhead. 

Program 50 bytes 
Data 2 bytes plus 

4 bytes in page zero 



;PAGE ZERO FOR MINUEND POINTER 
;PAGE ZERO FOR SUBTRAHEND POINTER 



MPDSUB: 



;SAVE RETURN ADDRESS 

PLA 

STA RETADR 

PLA 

STA RETADR+1 

;GET LENGTH OF ARRAYS 

PLA 

TAX 

f'. 

;GET STARTING ADDRESS OF SUBTRAHEND 

PLA 

STA SUBPTR 

PLA 

STA SUBPTR+1 

;GET STARTING ADDRESS OF MINUEND 

PLA 

STA MINPTR 

PLA 

STA MINPTR+1 



LOOP: 



.-RESTORE RETURN ADDRESS 


LDA 


RETADR+1 


PHA 




LDA 


RETADR 


PHA 




.-INITIALIZE 


LDY 


#0 


CPX 


#0 


BEQ 


EXIT 


SED 




SEC 




LDA 


(MINPTR) ,Y 


SBC 


(SUBPTR) ,Y 


STA 


(MINPTR), Y 


INY 




DEX 




BNE 


LOOP 



;IS LENGTH OF ARRAYS = ? 

;YES, EXIT 

;SET DECIMAL MODE 

;SET CARRY 



;GET NEXT BYTE 

;SUBTRACT BYTES 

; STORE DIFFERENCE 

; INCREMENT ARRAY INDEX 

; DECREMENT COUNTER 

.-CONTINUE UNTIL COUNTER = 
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EXIT: 



CLD 
RTS 



; RETURN IN BINARY MODE 



;DATA 

RETADR .BLOCK 2 



; TEMPORARY FOR RETURN ADDRESS 



SAMPLE EXECUTION: 



SC0612: 



LDA 


AY1ADR+1 


PHA 




LDA 


AY1ADR 


PHA 




LDA 


AY2ADR+1 


PHA 




LDA 


AY2ADR 


PHA 




LDA 


#SZAYS 


PHA 




JSR 


MPDSUB 


BRK 





SZAYS: 



JMP 



.EQU 



;PUSH AYl ADDRESS 



;PUSH AY 2 ADDRESS 



PUSH SIZE OF ARRAYS 

MULTIPLE-PRECISION BCD SUBTRACTION 
RESULT OF 2469134 - 1234567 = 1234567 



MEMORY AYl 


= 67H 


AY1+1 


= 4 5H 


AY 1+2 


= 2 3H 


AYl+3 


= 01H 


AY 1+4 


= 00H 


AYl+5 


= 00H 


AY 1+6 


= 0H 



SC0612 



AY1ADR: 


.WORD 


AYl 


AY2ADR: 


.WORD 


AY 2 


AYl: 








.BYTE 


034H 




.BYTE 


091H 




.BYTE 


046H 




.BYTE 


002H 




.BYTE 







.BYTE 







.BYTE 






;SIZE OF ARRAYS 

; ADDRESS OF ARRAY 1 (MINUEND) 
;ADDRESS OF ARRAY 2 (SUBTRAHEND) 



AY2: 



BYTE 


067H 


BYTE 


045H 


BYTE 


023H 


BYTE 


001H 


BYTE 





BYTE 





BYTE 





END 


; PROGRAM 
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Multiple-Precision Decimal Multiplication 

(MPDMUL) 



6M 



Multiplies two multi-byte unsigned 
decimal numbers. Both numbers are stored 
with their least significant digits at the lowest 
address. The product replaces one of the 
numbers (the one with the starting address 
lower in the stack). The length of the num- 
bers (in bytes) is 255 or less. Only the least 
significant bytes of the product are returned 
to retain compatibility with other multiple- 
precision decimal operations. The program 
returns with the Decimal Mode (D) flag 
cleared (binary mode). 

Procedure: The program handles each digit 



Registers Used: All 

Execution Time: Depends on the length of the 

operands and on the size of the digits in the 

multiplicand (since those digits determine how 

many times the multiplier is added to the partial 

product). 

If the average digit in the multiplicand has a 
value of 5, then the execution time is approx- 
imately 

322 x LENGTH? + 390 x LENGTH + 100 
cycles where LENGTH is the number of bytes in 
the operand. If, for example, LENGTH = 6 (12 
digits), the approximate execution time is 

322 x 62 + 390 x 6 + 100 = 322 x 36 + 2340 
+ 100 = 11,592 + 2440 = 14,032 cycles. 

Program Size: 203 bytes 

Data Memory Required: 517 bytes anywhere in 
RAM plus four bytes on page 0. The 517 bytes 
anywhere in RAM are temporary storage for the 



of the multiplicand (array 1) separately. It 
masks that digit off, shifts it (if it is in the 
upper nibble of a byte), and then uses it as a 
counter to determine how many times to add 
the multiplier to the partial product. The least 
significant digit of the partial product is saved 
as the next digit of the full product and the 
partial product is shifted right four bits. The 
program uses a flag to determine whether it is 
currently working with the upper or lower 
digit of a byte. A length of 00 causes an exit 
with no multiplication. 



partial product (255 bytes starting at address 
PROD), the multiplicand (255 bytes starting at 
address MCAND), the return address (two bytes 
starting at address RETADR), the length of the 
operands in bytes (one byte at address 
LENGTH), the next digit in the operand (one 
byte at address ND1GIT), the digit counter (one 
byte at address DCNT), the byte index into the 
operands (one byte at address 1DX), and the 
overflow byte (1 byte at address OVERFLW). 
The four bytes on page hold pointers to the two 
operands; the pointers start at addresses 
AY1PTR (00D0 16 in the listing) and AY2PTR 
(00D2, 6 in the listing). 

Special Case: A length of zero causes an 
immediate exit with the product equal to the orig- 
inal multiplicand (array 1 is unchanged), the 
Decimal Mode flag cleared (binary mode), and 
the more significant bytes of the product (starting 
at address PROD) undefined. 



Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 

Length of the operands in bytes 
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Exit Conditions 

Multiplicand (array 1) replaced by multipli- 
cand (array 1) times multiplier (array 2). 

D flag set to zero (binary mode). 
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Less significant byte of starting address of 

multiplier (address containing the least 

significant byte of array 2) 
More significant byte of starting address of 

multiplier (address containing the least 

significant byte of array 2) 

Less significant byte of starting address of 

multiplicand (address containing the least 

significant byte of array 1 ) 
More significant byte of starting address of 

multiplicand (address containing the least 

significant byte of array 1) 



Example 



Data: 



Result: 



Length of operands (in bytes) = 04 
Top operand (array 2 or multiplier) 
= 00003518 16 

Bottom operand (array 1 or multiplicand) 
= 00006294 16 

Bottom operand (array 1) = Bottom 
operand (array 1) » Top operand 

(array 2) = 22142292 16 . 

Decimal Mode flag = (binary mode) 



Note that MPDMUL returns only the less 
significant bytes of the product (that is, the 
number of bytes in the multiplicand and 
multiplier) to maintain compatibility with 
other multiple-precision decimal arithmetic 
operations. The more significant bytes of the 
product are available starting with their least 
significant digits at address PROD. The user 
may need to check those bytes for a possible 
overflow or extend the operands with addi- 
tional zeros. 



Title 
Name: 

Purpose: 
Entry: 



Exit: 



Multiple-Precision Decimal Multiplication 
MPDMUL 

Multiply 2 arrays of BCD bytes 
Arrayl := Arrayl * Array2 

TOP OF STACK 

Low byte of return address. 

High byte of return address, 

Length of the arrays in bytes. 

Low byte of array 2 (mulitplicand) address. 

High byte of array 2 (multiplicand) address, 

Low byte of array 1 (multiplier) address. 

High byte of array 1 (multiplier) address 

The arrays are unsigned BCD numbers with a 
maximum length of 255 bytes, ARRAY [0] is the 
least significant byte, and ARRAY [LENGTH-1] 
the most significant byte. 

Arrayl := Arrayl * Array2 
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Registers used: All 



Time: 



Size: 



; EQUATES 
AY1PTR: .EQU 
AY2PTR: .EQU 



MPDMUL: 



INITLP: 



ODOH 
0D2H 



Assuming the average digit value of ARRAY 1 is 
5 then the time is approximately 
(322 * length"2) + (390 * length) + 100 cycles 

Program 203 bytes 
Data 517 bytes plus 

4 bytes in page zero 



;PAGE ZERO FOR ARRAY 1 POINTER 
;PAGE ZERO FOR ARRAY 2 POINTER 



;SAVE RETURN ADDRESS 

PLA 

STA RETADR 

PLA 

STA RETADR+1 

;GET LENGTH OF ARRAYS 

PLA 

STA LENGTH 

;GET STARTING ADDRESS OF ARRAY 2 

PLA 

STA AY2PTR 

PLA 

STA AY2PTR+1 

;GET STARTING ADDRESS OF ARRAY 1 

PLA 

STA AY1PTR 

PLA 

STA AY1PTR+1 

; RESTORE RETURN ADDRESS 

LDA RETADR+1 

PHA 

LDA RETADR 

PHA 



; INITIALIZE 

SED 

LDY #0 

LDX LENGTH 

BNE XNITLP 

JMP EXIT 



;PUT PROCESSOR IN DECIMAL MODE 
;IS LENGTH ZERO ? 
;YES, EXIT 



;MOVE ARRAY 1 TO MULTIPLICAND ARRAY, ZERO ARRAY 1, AND 
• ZERO PRODUCT ARRAY. 



LDA 
STA 



(AY1PTR) ,Y 
MCAND,Y 



;MOVE ARY1[Y] TO MCAND[Y] 



LDA 


#0 


STA 


(AY1PTR) ,Y 


STA 


PROD,Y 


INY 




DEX 




BNE 


INITLP 
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;ZERO ARYl [Y] 
;ZERO PROD 

.-DECREMENT LOOP COUNTER 
; CONTINUE UNTIL DONE 



/•INITIALIZE CURRENT INDEX TO ZERO 
LDA #0 
STA IDX 



LOOP: 



;LOOP THROUGH ALL THE BYTES OF THE MULTIPLICAND 



DLOOP: 



DLOOP1: 



ADDLP: 



INNER: 



LDA 
STA 



#0 
DC NT 



,-START WITH LOW DIGIT 



;LOOP THROUGH 2 DIGITS PER BYTE 

; DURING THE FIRST DIGIT DCNT = 

; DURING THE SECOND DIGIT DCNT = FF HEX (-1' 



LDA 
STA 
LDY 
LDA 
LDX 
BPL 
LSR 
LSR 
LSR 
LSR 

AND 
BEQ 
STA 



#0 

OVRFLW 

IDX 

MCAND,Y 

DCNT 

DLOOP1 

A 

A 

A 

A 

#0FH 

SDIGIT 

NDIGIT 



;ZERO OVERFLOW 

;GET NEXT BYTE 

;BRANCH IF FIRST DIGIT 
,-SHIFT RIGHT 4 BITS 



;AND OFF UPPER DIGIT 

.•BRANCH IF NEXT DIGIT IS ZERO 

;SAVE 



;ADD MULTIPLIER TO PRODUCT NDIGIT TIMES 



LDY #0 
LDX LENGTH 
CLC 



DECND: 



LDA 
ADC 
STA 
INY 
DEX 
BNE 
BCC 
INC 



DEC 
BNE 



(AY2PTR) ,Y 
PROD,Y 
PROD/Y 



INNER 
DECND 
OVRFLW 



NDIGIT 
ADDLP 



;Y = INDEX INTO ARRAYS 
;X = LENGTH IN BYTES 
,-CLEAR CARRY INITIALY 



;GET NEXT BYTE 

;ADD TO PRODUCT 

; STORE 

.-INCREMENT ARRAY INDEX 

.-DECREMENT LOOP COUNTER 

.-CONTINUE UNTIL LOOP COUNTER = 

;BRANCH IF NO OVERFLOW FROM ADDITION 

;ELSE INCREMENT OVERFLOW BYTE 



;CONTINUE UNTIL NDIGIT = 
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SDIGIT: 



;STORE THE LEAST SIGNIFICANT DIGIT OF PRODUCT 
: AS THE NEXT DIGIT OF ARR* Y 1 



SD1: 



LDA 
AND 
LDX 
BPL 
ASL 
ASL 
ASL 
ASL 

LDY 
ORA 
STA 



PROD 

#0FH 

DCNT 

SD1 

A 

A 

A 

A 

IDX 

(AY1PTR) ,Y 
(AYlPTR) ,Y 



; CLEAR UPPER DIGIT 

;BRANCH IF FIRST DIGIT 

;ELSE SHIFT LEFT 4 BITS TO PLACE 

; IN THE UPPER DIGIT 



GET CURRENT BYTE INDEX 
OR IN NEXT DIGIT 
STORE NEW VALUE 



sSHIFT RIGHT PRODUCT 1 DIGIT (4 BITS) 

LDY LENGTH ;SHIFT RIGHT FROM THE FAR END 



SHFTLP: 



; DECREMENT Y SO IT POINTS AT THE NEXT BYTE 

;SAVE LOW DIGIT OF PROD,Y 
; CLEAR LOW DIGIT 



LOW DIGIT OF OVERFLOW 
HIGH DIGIT OF PROD,Y 



= HIGH DIGIT OF PROD,Y 
LOW DIGIT OF PROD,Y 



SHIFT OVERFLOW RIGHT 

BIT 0..2 AND CARRY = OVERFLOW 

BITS 4.. 7 = PROD 



NOW PROD IN BITS 0. 
STORE NEW PRODUCT 
GET OLD PROD,Y 
CLEAR UPPER DIGIT 
STORE IN OVERFLOW 
CHECK FOR Y = 
BRANCH IF NOT DONE 



,3 AND OVERFLOW IN 4.. 7 



DEY 

LDA PROD,Y 

PHA 

AND #0F0H 

;MAKE 

;MAKE 

LSR OVRFLW 

ORA OVRFLW 

ROR A 

ROR A 

ROR A 

ROR A 

STA PROD,Y 

PLA 

AND #0FH 

STA OVRFLW 

TYA 

BNE SHFTLP 

.ruvrK tf WP ARE DONE WITH BOTH DIGITS OF THIS BYTE 

DEC DCNT -MAKE GOTO FF HEX TO INDICATE SECOND DIGIT 

CMP #0FFH ;HAVE WE ALREADY DONE BOTH DIGITS ? 

BEQ DLOOP ; BRANCH IF NOT 

INCREMENT TO NEXT BYTE AND SEE IF WE ARE DONE 

INC IDX 

LDA IDX 

BCS EXIT .-BRANCH IF BYTE INDEX >= LENGTH 

JMP LOOP ; ELSE CONTINUE 



EXIT: 
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CLD 








RTS 






; DATA 








RETADR: 




•BLOCK 


2 


LENGTH: 




.BLOCK 


1 


NDIGIT: 




.BLOCK 


1 


DCNT: 




.BLOCK 


1 


IDX: 




.BLOCK 


1 


OVRFLW: 




.BLOCK 


1 


PROD: 




.BLOCK 


255 


MCAND: 




.BLOCK 


255 



; RETURN IN BINARY MODE 



.•TEMPORARY FOR RETURN ADDRESS 

; LENGTH OF ARRAYS 

;NEXT DIGIT IN ARRAY 

;DIGIT COUNTER FOR BYTES IN ARRAYS 

;BYTE INDEX INTO ARRAYS 

; OVERFLOW BYTE 

; PRODUCT BUFFER 

; MULTIPLICAND BUFFER 



SAMPLE EXECUTION: 



SC0613: 




LDA 


AY1ADR+1 


PHA 




LDA 


AY1ADR 


PHA 




LDA 


AY2ADR+1 


PHA 




LDA 


AY2ADR 


PHA 




LDA 


#SZAYS 


PHA 




JSR 


MPDMUL 


BRK 







JMP 


SC0613 


SZAYS: 


.EQU 


7 


AYlADR: 
AY2ADR: 


.WORD 
.WORD 


AY1 
AY 2 


AY1: 


.BYTE 
• BYTE 
.BYTE 
.BYTE 


034H 
012H 





;PUSH AY1 ADDRESS 



;PUSH AY2 ADDRESS 



PUSH LENGTH OF ARRAYS 

MULTIPLE-PRECISION BCD MULTIPLICATION 
RESULT OF 1234 * 1234 = 1522756 
IN MEMORY AY1 = 5 6H 

AY1+1 = 27H 

AY1+2 = 52H 

AY1+3 = 01H 

AY1+4 = 0H 

AY1+5 = 00H 

AY1+6 = 0H 



; LENGTH OF ARRAYS 

; ADDRESS OF ARRAY 1 
; ADDRESS OF ARRAY 2 
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AY2: 



BYTE 





BYTE 





BYTE 





BYTE 


034H 


BYTE 


012H 


BYTE 





BYTE 





BYTE 





BYTE 





BYTE 





END 


; PROGRAM 



Multiple-Precision Decimal Division 

(MPDDIV) 



6N 



Divides two multi-byte unsigned decimal 
numbers. Both numbers are stored with their 
least significant byte at the lowest address. 
The quotient replaces the dividend (the 
operand with the starting address lower in the 
stack). The length of the numbers (in bytes) 
is 255 or less. The remainder is not returned 
but the address of its least significant byte is 
available starting at memory location 
HDEPTR. The Carry flag is cleared if no 
errors occur; if a divide by zero is attempted, 
the Carry flag is set to 1 , the dividend is left 
unchanged, and the remainder is set to zero. 



The program returns with the Decimal Mode 
(D) flag cleared (binary mode). 

Procedure: The program performs division 
by trial subtractions, a digit at a time. It deter- 
mines how many times the divisor can be 
subtracted from the dividend and then saves 
that number in the quotient and makes the 
remainder into the new dividend. It then 
rotates the dividend and the quotient left one 
digit. The program exits immediately, setting 
the Carry flag, if it finds the divisor to be 
zero. The Carry flag is cleared otherwise. 



Registers Used: All 

Execution Time: Depends on the length of the 
operands and on the size of the digits in the quo- 
tient (determining how many trial subtractions 
must be performed). If the average digit in the 
quotient has a value of 5, then the execution time 
is approximately 

440 x LENGTH* + 765 x LENGTH + 228 
cycles where LENGTH is the number of bytes in 
the operands. If, for example, LENGTH = 6 (12 
digits), the approximate execution time is 

440 x 62 + 765 x 6 + 228 = 440 x 36 + 4590 
+ 228 = 15,840 + 4818 = 20,658 cycles. 

Program Size: 246 bytes 

Data Memory Required: 522 bytes anywhere in 
RAM plus eight bytes on page 0. The 522 bytes 
anywhere in RAM are temporary storage for the 
high dividend (255 bytes starting at address 
HIDED, the result of the trial subtraction (255 
bytes starting at address HIDE2), the return 
address (two bytes starting at address 
RETADR), a pointer to the dividend (two bytes 
starting at address AY1PTR), the length of the 



operands (one byte at address LENGTH), the 
next digit in the array (one byte at address 
NDIGIT), the divide loop counter (one byte at 
address COUNT), and the addresses of the high 
dividend buffers (two bytes each, starting at 
addresses AHIDE1 and AHIDE2). The eight 
bytes on page hold pointers to the divisor 
(address AY2PTR, 00D0 16 in the listing), the 
current high dividend and remainder (address 
HDEPTR, 00D2 16 in the listing), the other high 
dividend (address ODEPTR, 00D4, 6 in the list- 
ing), and the temporary array used in the left 
rotation (address RLPTR, 00D6, 6 in the listing). 

Special Cases: 

1. A length of zero causes an immediate exit 
with the Carry flag cleared, the quotient equal to 
the original dividend (array 1 unchanged), the 
remainder undefined, and the Decimal Mode flag 
cleared (binary mode). 

2. A divisor of zero causes an exit with the 
Carry flag set to 1, the quotient equal to the origi- 
nal dividend (array 1 unchanged), the remainder 
equal to zero, and the Decimal Mode flag cleared 
(binary mode). 
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Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 

Length of the operands in bytes 

Less significant byte of starting address of 
divisor (address containing the least sig- 
nificant byte of array 2) 

More significant byte of starting address of 
divisor (address containing the least sig- 
nificant byte of array 2) 

Less significant byte of starting address of 
dividend (address containing the least sig- 
nificant byte of array 1) 

More significant byte of starting address of 
dividend (address containing the least sig- 
nificant byte of array 1) 



Exit Conditions 

Dividend (array 1) replaced by dividend 
(array 1) divided by divisor (array 2) 

If the divisor is non-zero, Carry = and 
the result is normal. 

If the divisor is zero, Carry = 1, the divi- 
dend is unchanged, and the remainder is 
zero. 

The remainder is available with its least 
significant digits stored at the address in 
HDEPTR and HDEPTR + 1 

D flag set to zero (binary mode) . 



Example 

Data: Length of operands (in bytes) •= 04 

Top operand (array 2 or divisor) = 
00006294 16 

Bottom operand (array 1 or dividend) 
22142298, 6 



Result: Bottom operand (array 1) = Bottom 
operand (array l)/Top operand 
(array 2) = 000035 18, 6 

Remainder (starting at address in 

HDEPTR and HDEPTR + 1) = 

00000006 16 = 6, 

Decimal Mode flag = (binary mode) 

Carry flag is to indicate no 

divide by zero error. 
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Title 
Name: 



Multiple-Precision Decimal Division 
MPDDIV 



Purpose: 
Entry: 



Exit: 



Registers used: 
Time: 

Size: 



Divide 2 arrays of BCD bytes 
Arrayl := Arrayl / Array2 

TOP OF STACK 

Low byte of return address, 

High byte of return address, 

Length of the arrays in bytes, 

Low byte of array 2 (divisor) address, 

High byte of array 2 (divisor) address, 

Low byte of array 1 (dividend) address, 

High byte of array 1 (dividend) address 

The arrays are unsigned BCD numbers with a 
maximum length of 255 bytes, ARRAY [0] is the 
least significant byte, and ARRAY [LENGTH -1] 
the most significant byte. 

Arrayl := Arrayl / Array2 
Dvbuf := remainder 
If no errors then 

carry := 
ELSE 

divide by error 

carry := 1 

ARRAY 1 := unchanged 

remainder := 

All 

Assuming the average digit value in the 
quotient is 5 then the time is approximately 
(440 * length~2) + (765 * length) + 228 cycles 

Program 246 bytes 
Data 522 bytes plus 

8 bytes in page zero 



; EQUATES 
AY2PTR: .EQU 
HDEPTR: .EQU 


ODOH 
0D2H 


ODEPTR: .EQU 


0D4H 


RLPTR: .EQU 


0D6H 


MPDDIV: 





;PAGE ZERO FOR ARRAY 2 (DIVISOR) POINTER 

;PAGE ZERO WHICH POINTS TO THE CURRENT 

; HIGH DIVIDEND POINTER 

;PAGE ZERO WHICH POINTS TO THE OTHER 

; HIGH DIVIDEND POINTER 

;PAGE ZERO FOR ROTATE LEFT ARRAY 
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INIT: 



INITLP: 



;GET RETURN ADDRESS 

PLA 

STA RETADR 

PLA 

STA RETADR+1 

;GET LENGTH OF ARRAYS 

PLA 

STA LENGTH 

;GET STARTING ADDRESS OF DIVISOR 

PLA 

STA AY2PTR 

PLA 

STA AY2PTR+1 

;GET STARTING ADDRESS OF DIVIDEND 

PLA 

STA AY1PTR 

PLA 

STA AY1PTR+1 

; RESTORE RETURN ADDRESS 

LDA RETADR+1 

PHA 

LDA RETADR 

PHA 

CLD ;PUT PROCESSOR INTO BINARY MODE 

;CHECK FOR ZERO LENGTH ARRAYS 

LDA LENGTH 

BNE INIT .-BRANCH IF NOT ZERO 

JMP OKEXIT JELSE EXIT 

;ZERO BOTH DIVIDEND BUFFERS 

LDA #0 ;A = 

LDY LENGTH ;X = LENGTH 

STA HIDEl-l,Y 

STA HIDE2-1,Y 

DEY 

BNE INITLP 

•SET UP THE HIGH DIVIDEND POINTERS 

LDA AHIDEl 

STA HDEPTR 

LDA AHIDEl+1 

STA HDEPTR+1 

LDA AHIDE2 

STA ODEPTR 

LDA AHIDE2+1 

STA ODEPTR+1 
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CHKDVO: 



DV01: 



DVLOOP: 



;NDIGIT := 
LDA #0 
STA NDIGIT 



;SET COUNT TO NUMBER OF DIGITS PLUS 1 



COUNT 
LDA 
ASL 
STA 
LDA 
ROL 
STA 
INC 
BNE 
INC 



= (LENGTH 
LENGTH 
A 

COUNT 
#0 
A 

COUNT+1 
COUNT 
CHKDVO 
COUNT+1 



2) + 1 



; LENGTH * 2 



;MOVE OVERFLOW FROM * 2 INTO A 
;STORE HIGH BYTE OF COUNT 

; BRANCH IF NO OVERFLOW 



;CHECK FOR DIVIDE BY ZERO 



LDX 
LDY 
TYA 

ORA 
INY 
DEX 
BNE 

CMP 
BNE 
JMP 



LENGTH 
#0 



(AY2PTR),Y 



DV01 

#0 

DVLOOP 

EREXIT 



.-CONTINUE ORING ALL THE BYTES 



; BRANCH IF DIVISOR IS NOT 
; ERROR EXIT 



; PERFORM DIVISION BY TRIAL SUBTRACTIONS 



; ROTATE LEFT THE LOWER DIVIDEND AND THE QUOTIENT (ARRAY 1) 

; THE HIGH DIGIT OF NDIGIT BECOMES THE LEAST SIGNIFICANT DIGIT 

; OF THE QUOTIENT (ARRAY 1) AND THE MOST SIGNIFICANT DIGIT 

; OF ARRAY 1 (DIVIDEND) GOES TO THE HIGH DIGIT OF NDIGIT 

LDA AY1PTR+1 

LDY AY1PTR 

JSR RLARY ; ROTATE ARRAY 1 

;IF COUNT = THEN WE ARE DONE 

DEC COUNT 

BNE ROLDVB ; BRANCH IF LOWER BYTE IS NOT 

LDA COUNT+1 ;ELSE GET HIGH BYTE 

BEQ OKEXIT .-CONTINUE UNTIL COUNT = 

DEC COUNT+1 ; DECREMENT UPPER BYTE OF COUNT 



ROLDVB: 



,-ROTATE LEFT THE HIGH DIVIDEND WHERE THE LEAST SIGNIFICANT DIGIT 
; OF HIGH DIVIDEND BECOMES THE HIGH DIGIT OF NDIGIT 



LDA 
LDY 
JSR 



HDEPTR+1 

HDEPTR 

RLARY 
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SEE HOW MANY TIMES THE DIVISOR WILL GO INTO THE HIGH DIVIDEND 
WHEN WE EXIT FROM THIS LOOP THE HIGH DIGIT OF NDIGIT IS THE NEXT 
QUOTIENT DIGIT AND HIGH DIVIDEND IS THE REMAINDER 

;NDIGIT := 
.•ENTER DECIMAL MODE 

;Y = INDEX INTO ARRAYS 

;X = LENGTH 

;SET INVERTED BORROW 

GET NEXT BYTE OF DIVIDEND 
SUBTRACT BYTE OF DIVISOR 
SAVE DIFFERENCE FOR NEXT SUBTRACTION 
INCREMENT ARRAY INDEX 
DECREMENT LOOP COUNTER 
CONTINUE THROUGH ALL THE BYTES 
BRANCH WHEN BORROW OCCURS AT WHICH TIME 
NDIGIT IS THE NUMBER OF TIMES THE DIVISOR 
GOES INTO THE ORIGINAL HIGH DIVIDEND AND 
• HIGH DIVIDEND CONTAINS THE REMAINDER. 

; INCREMENT NEXT DIGIT WHICH IS IN THE HIGH DIGIT OF NDIGIT 

LDA NDIGIT ■ 

CLC 

ADC #10H 

STA NDIGIT 

; EXCHANGE POINTERS, THUS MAKING REMAINDER THE NEW DIVIDEND 



LDA 


#0 


STA 


NDIGIT 


SED 




SUBLP: 

LDY^ 


#0 


LDX 


LENGTH 


SEC 




INNER: 




LDA 


(HDEPTR) ,Y 


SBC 


(AY2PTR) ,Y 


STA 


(ODEPTR) ,Y 


INY 




DEX 




BNE 


INNER 


BCC 


DVLOOP 



LDX 
LDY 
LDA 
STA 
LDA 
STA 
STX 
STY 

JMP 



HDEPTR 

HDEPTR+1 

ODEPTR 

HDEPTR 

ODEPTR+1 

HDEPTR+1 

ODEPTR . 

ODEPTR+1 

SUBLP 



;CONTINUE UNTIL DIFFERENCE GOES NEGATIVE 



OKEXIT: 



;NO ERRORS, CLEAR CARRY 



CLC 
BCC 



EXIT 
; DIVIDE BY ZERO ERROR, SET CARRY 



EREXIT: 



SEC 



EXIT: 



•HDEPTR CONTAINS THE ADDRESS OF THE REMAINDER 
CLD ; RETURN IN BINARY MODE 

RTS 
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*********************************** 

SUBROUTINE: RLARY 

PURPOSE: ( ROTATE LEFT AN ARRAY ONE DIGIT (4 BITS) 

ENTRY: A = HIGH BYTE OF ARRAY ADDRESS 

Y = LOW BYTE OF ARRAY ADDRESS 

THE HIGH DIGIT OF NDIGIT IS THE DIGIT TO ROTATE THROUGH 
EXIT: ARRAY ROTATED LEFT THROUGH THE HIGH DIGIT OF NDIGIT 
REGISTERS USED: ALL 
********************************** 



RLARY : 



SHIFT: 



; STORE ARRAY ADDRESS 
STA RLPTR+1 
STY RLPTR 

;SHIFT NDIGIT INTO LOW DIGIT OF ARRAY AND 

; SHIFT ARRAY LEFT 

LDX LENGTH 

LDY #0 ; START AT ARY1[0] 



;GET NEXT BYTE 
;SAVE HIGH DIGIT 
;CLEAR HIGH DIGIT 



LDA 
PHA 


(RLPTR) ,Y 


AND 


#0FH 


ASL 


NDIGIT 


ORA 


NDIGIT 


ROL 


A 


ROL 


A 


ROL 


A 


ROL 


A 


STA 
PLA 


(RLPTR) ,Y 


AND 


#0F0H 


STA 


NDIGIT 


INY 




DEX 





;BITS 0..3 = LOW DIGIT OF ARRAY 
;BITS 5.. 7 AND CARRY = NEXT DIGIT 



;NOW NDIGIT IN BITS 0..3 AND 

; LOW DIGIT IN HIGH DIGIT 

; STORE IT. 

; GET OLD HIGH DIGIT 

;CLEAR LOWER DIGIT 

;STORE IN NDIGIT 

; INCREMENT TO NEXT BYTE 

; DECREMENT COUNT 

; BRANCH IF NOT DONE 



RTS 



;DATA 






RETADR 


. BLOCK 


2 


AY1PTR 


. BLOCK 


2 


LENGTH 


. BLOCK 


1 


NDIGIT 


.BLOCK 


1 


COUNT: 


. BLOCK 


2 


AHIDE1 


.WORD 


HIDE1 


AHIDE2 


.WORD 


HIDE2 


HIDE1: 


•BLOCK 


255. 


HIDE2: 


. BLOCK 


255. 



; TEMPORARY FOR RETURN ADDRESS 

; ARRAY 1 ADDRESS 

; LENGTH OF ARRAYS 

;NEXT DIGIT IN ARRAY 

; DIVIDE LOOP COUNTER 

,-ADDRESS OF HIGH DIVIDEND BUFFER 

;ADDRESS OF HIGH DIVIDEND BUFFER 

;HIGH DIVIDEND BUFFER 1 

;HIGH DIVIDEND BUFFER 2 
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SAMPLE EXECUTION: 



SC0614: 



LDA 


AY1ADR+1 


PHA 




LDA 


AYlADR 


PHA 




LDA 


AY2ADR+1 


PHA 




LDA 


AY2ADR 


PHA 




LDA 


#SZAYS 


PHA 




JSR 


MPDDIV 


BRK 





SZAYS: 



JMP 



. EQU 



SC0614 



AYlADR: 


.WORD 


AYl 


AY2ADR: 


.WORD 


AY 2 


AY1: 








.BYTE 


056H 




.BYTE 


027H 




.BYTE 


052H 




.BYTE 


01H 




.BYTE 







.BYTE 







.BYTE 





AY 2: 








.BYTE 


034H 




.BYTE 


012H 




.BYTE 







.BYTE 







.BYTE 







.BYTE 







.BYTE 







.END 


; PROGRAM 



;PUSH AYl ADDRESS 



;PUSH AY2 ADDRESS 



PUSH LENGTH OF ARRAYS 
MULTIPLE-PRECISION BCD DIVISION 
RESULT OF 1522756 / 1234 = 1234 



IN MEMORY AYl 

AY 1+1 
AY 1+2 
AYl+3 
AY 1+4 
AYl + 5 
AYl+6 



; LENGTH OF ARRAYS 

;ADDRESS OF ARRAY 1 
; ADDRESS OF ARRAY 2 



34H 
12H 
00H 
OOH 
OOH 
OOH 
OOH 



(DIVIDEND) 
(DIVISOR) 



Multiple-Precision Decimal Comparison 
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Compares two multi-byte unsigned 
decimal (BCD) numbers and sets the Carry 
and Zero flags appropriately. The Zero flag is 
set to 1 if the operands are equal and to if 
they are not equal. The Carry flag is set to if 
the operand with the address higher in the 
stack (the subtrahend) is larger then the 
other operand (the minuend); the Carry flag 
is set to 1 otherwise. Thus the flags are set as 



if the subtrahend had been subtracted from 
the minuend. 

Note: This program is exactly the same as 
Subroutine 6J, the multiple-precision binary 
comparison, since the CMP instruction oper- 
ates the same in the decimal mode as in the 
binary mode. Hence, see Subroutine 6J for a 
listing and other details. 



Examples 



1. Data: 



Result: 



2. Data: 



Result: 



Length of operands (in bytes) = 6 

Top operand (subtrahend) = 

196528719340, 6 

Bottom operand (minuend) = 

456780153266 16 

Zero flag = (operands are not equal) 
Carry flag = 1 (subtrahend is not 
larger than minuend) 

Length of operands (in bytes) = 6 

Top operand (subtrahend) = 

196528719340 16 

Bottom operand (minuend) = 

196528719340| 6 

Zero flag = 1 (operands are equal) 
Carry flag = 1 (subtrahend is not 
larger than minuend) 



3. Data: 



Result: 



Length of operands (in bytes) = 6 

Top operand (subtrahend) = 

196528719340 16 

Bottom operand (minuend) = 

073785991074, 6 

Zero flag = (operands are not equal) 
Carry flag = (subtrahend is larger 
than minuend) 
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Bit Set (BITSET) 



7A 



Sets a specified bit in a 16-bit word to 1 . 

Procedure: The program uses bits 
through 2 of register X to determine which 
bit position to set and bit 3 to select a particu- 
lar byte of the original word-length data. It 
then logically ORs the selected byte with a 
mask containing a 1 in the chosen bit position 
and Os elsewhere. The masks with one 1 bit 
are available in a table. 



Registers Used: All 

Execution Time: 57 cycles 

Program Size: 42 bytes 

Data Memory Required: Two bytes anywhere in 

RAM (starting at address VALUE). 

Special Case: Bit positions above 15 will be 
interpreted mod 16. That is, for example, bit 
position 16 is equivalent to bit position 0. 



Entry Conditions 

More significant byte of data in accumulator 
Less significant byte of data in register Y 
Bit number to set in register X 



Exit Conditions 

More significant byte of result in accumulator 
Less significant byte of result in register Y 



Examples 



1. Data: (A) = 6E 16 = 01101110 2 
(more significant byte) 
(Y) = 39, 6 = 001 11001 2 
(less significant byte) 
(X) = 0C, 6 = 12 10 
(bit position to set) 

Result: (A) = 7E 16 = 0111U10 2 
(more significant byte, 
bit 12 set to 1) 
(Y) = 39, 6 = 00111001 2 
(less significant byte) 



2. Data: 



Result: 



(A) = 6E 1(j = 011011102 
(more significant byte) 



(Y) = 39,, 



00111001, 



(less significant byte) 
(X) = 02 16 = 2 10 
(bit position to set) 

(A) = 6E,6 = 01101110 2 

(more significant byte) 

(Y) =3D 16 = 00111101 2 

(less significant byte, bit 2 set to 1) 
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BITSET: 



Title Bit set 

Name: BITSET 



Purpose: Set a bit in a 16 bit word. 

Entry: Register A = High byte of word 

Register Y = Low byte of word 
Register X = Bit number to set 

Exit: Register A = High byte of word with bit set 

Register Y = Low byte of word with bit set 

Registers used: All 

Time: 57 cycles 

Size: Program 42 bytes 

Data 2 bytes 



;SAVE THE DATA WORD 
STA VALUE+1 
STY VALUE 

;BE SURE THAT THE BIT NUMBER IS BETWEEN AND 15 

TXA 

AND #0FH 

; DETERMINE WHICH BYTE AND WHICH BIT IN THAT BYTE 

TAX ;SAVE BIT NUMBER IN X 

AND #07H ;THE LOWER 3 BITS OF THE BIT NUMBER 

TAY ; IS THE BIT IN THE BYTE, SAVE IN Y 

TXA ;RESTORE BIT NUMBER 

LSR A .-DIVIDE BY 8 TO DETERMINE BYTE 

LSR A 

LSR A 

TAX ;SAVE BYTE NUMBER (0 OR 1) IN X 

;SET THE BIT 

LDA VALUE, X ;GET THE BYTE 

ORA BITMSK,Y ;SET THE BIT 
STA VALUE, X 

; RETURN THE RESULT IN REGISTERS A AND Y 

LDA VALUE+1 
LDY VALUE 
RTS 
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BITMSK: 


.BYTE 


00000001B 




.BYTE 


00000010B 




.BYTE 


0000U100B 




.BYTE 


00001000B 




.BYTE 


0001UOOOB 




.BYTE 


00100000B 




.BYTE 


01000000B 




.BYTE 


10000000B 


;DATA 






VALUE: 


. BLOCK 


2 



BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 



TEMPORARY FOR THE DATA WORD 



SAMPLE EXECUTION 



SC0701: 



LDA 


VAL+1 


LDY 


VAL 


LDX 


BITN 


JSR 


BITSET 


BRK 





JMP 



SC0701 



;LOAD DATA WORD INTO A,Y 

;GET BIT NUMBER IN X 

;SET THE BIT 

(RESULT OF VAL = 5555H AND BITN = OF 

: REGISTER A = D5H, REGISTER Y = 55H 



;TEST DATA, CHANGE FOR DIFFERENT VALUES 
VAL: .WORD 5555H 
BITN: .BYTE UFH 



.END 



; PROGRAM 



Bit Clear (BITCLR) 



7B 



Clears a specified bit in a 16-bit word. 

Procedure: the program uses bits through 
2 of register X to determine which bit posi- 
tion to clear and bit 3 to select a particular 
byte of the original word-length data. It then 
logically ANDs the selected byte with a mask 
containing a in the chosen bit position and 
Is elsewhere. The masks with one bit are 
available in a table. 



Registers Used: All 

Execution Time: 57 cycles 

Program Size: 42 bytes 

Data Memory Required: Two bytes anywhere in 
RAM (starting at address VALUE). 

Special Case: Bit positions above 15 will be 
interpreted mod 16. That is, for example, bit 
position 16 is equivalent to bit position 0. 



Entry Conditions 



Exit Conditions 



More significant byte of data in accumulator 
Less significant byte of data in register Y 
Bit number to clear in register X 



More significant byte of result in accumulator 
Less significant byte of result in register Y 



Examples 



1. Data: (A) = 6E, 6 = 01101 110 2 
(more significant byte) 

(Y) = 39, 6 = 0011 1001, 6 
(less significant byte) 
(X) = 0E 16 - 14, . 
(bit position to clear) 

Result: (A) = 2E I6 = 01 101 1 10 2 

(more significant byte, bit 14 cleared) 
(Y) = 39, 6 = 00111001 2 
(less significant byte) 



2. Data: (A) = 6E, 6 = 01101U0, 6 
(more significant byte) 

(Y) = 39, 6 = 00111001 2 
(less significant byte) 
(X) = 04, 6 - 4, 
(bit position to clear) 

Result: (A) = 6E, 6 = 01101110 2 
(more significant byte) 
(Y) = 29, 6 = 00101001 2 
(less significant byte, bit 4 cleared) 
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Title 
Name: 



Bit clear 
BITCLR 



Purpose: 
Entry: 

Exit: 



Clear a bit in a 16 bit word. 

Register A = High byte of word 
Register Y = Low byte of word 
Register X = Bit number to clear 

Register A = High byte of word with bit cleared 
Register Y = Low byte of word with bit cleared 



Registers used: All 
Time: 57 cycles 

Size: 



Program 42 bytes 
Data 2 bytes 



BITCLR: 



;SAVE THE DATA WORD 
STA VALUE+1 
STY VALUE 

;BE SURE THAT THE BIT NUMBER IS BETWEEN AND 15 

TXA 

AND #0FH 

DETERMINE WHICH BYTE AND WHICH BIT IN THAT BYTE 



TAX 
AND 
TAY 
TXA 
LSR 
LSR 
LSR 
TAX 



#07H 



A 
A 
A 



;SAVE BIT NUMBER IN X 

;THE LOWER 3 BITS OF THE BIT NUMBER 

; IS THE BIT IN THE BYTE, SAVE IN Y 

;RESTORE BIT NUMBER 

; DIVIDE BY 8 TO DETERMINE BYTE 



;SAVE BYTE NUMBER (0 OR 1) IN X 



;CLEAR THE BIT 
LDA VALUE , X 
AND BITMSK,Y 
STA VALUE, X 



;GET THE BYTE 
; CLEAR THE BIT 



; RETURN THE RESULT IN REGISTERS A AND Y 



LDA 
LDY 
RTS 



VALUE+1 
VALUE 
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BITMSK: 


.BYTE 


11111110B 




• BYTE 


UllllOlB 




iBYTE 


11111011B 




.BYTE 


11110111B 




.BYTE 


11101111B 




.BYTE 


11011111B 




.BYTE 


10111111B 




.BYTE 


01111111B 


;DATA 






VALUE: 


. BLOCK 


2 



BIT 





= 





BIT 


1 


= 





BIT 


2 


= 





BIT 


3 


= 





BIT 


4 


= 





BIT 


5 


= 





BIT 


6 


= 





BIT 


7 


= 






; TEMPORARY FOR THE DATA WORD 



SAMPLE EXECUTION 



SC0702: 








LDA 


VAL+1 




LDY 


VAL 




LDX 


BITN 




JSR 


BITCLR 




BRK 





JMP 



SC0702 



;LOAD DATA WORD INTO A,Y 

;GET BIT NUMBER IN X 

; CLEAR THE BIT 

;RESULT OF VAL = 5555H AND BITN = 00H IS 

; REGISTER A = 55H, REGISTER Y = 54H 



;TEST DATA, CHANGE FOR DIFFERENT VALUES 
VAL: .WORD 5555H 
BITN: .BYTE 



, END 



; PROGRAM 



Bit Test (BITTST) 



7C 



Sets the Carry flag to the value of a 
specified bit in a 16-bit word. 

Procedure: The program uses bits 
through 2 of register X to determine which 
bit position to test and bit 3 to select a partic- 
ular byte of the original word-length data. It 
then logically ANDs the selected byte with a 
mask containing a 1 in the chosen bit position 
and Os elsewhere. Since the result is zero if 
the tested bit is and non-zero if the tested 
bit is 1, the Zero flag is set to the complement 
of the tested bit. Finally, the program sets the 



Registers Used: All 

Execution Time: Approximately 50 cycles 

Program Size: 37 bytes 

Data Memory Required: Two bytes anywhere in 
RAM (starting at address VALUE). 

Special Case: Bit positions above IS will be 
interpreted mod 16. That is, for example, bit 
position 16 is equivalent to bit position 0. 



Carry flag to the complement of the Zero 
flag, thus making it the same as the tested bit 
through a double inversion. 



Entry Conditions 

More significant byte of data in accumulator 
Less significant byte of data in register Y 
Bit position to test in register X 



Exit Conditions 

Carry set to value of specified bit position in 
data. 



Examples 

1. Data: (A) = 6E 16 = 01101110 2 
(more significant byte) 
(Y) = 39 16 = 00111001 2 
(less significant byte) 

(X) = 0B 16 = ll,o 
(bit position to test) 

Result: Carry = 1 (value of bit 11) 



2. Data: 

(A) = 6E,6 = 01101110 2 
(more significant byte) 
(Y) =39 16 -00111001 2 
(less significant byte) 
(X) = 06 16 = 6 10 
(bit position to test) 

Result: Carry = (value of bit 6) 
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BITTST: 



EXIT: 



Title Bit test 

Name: BITTST 



Purpose: Test. a bit in a 16 bit word. 

Entry: Register A = High byte of word 

Register Y = Low byte of word 
Register X = Bit number to test 

Exit: CARRY = value of the tested bit 

Registers used: All 

Time: Approximately 50 cycles 

Size: Program 37 bytes 

Data 2 bytes 



;SAVE THE DATA WORD 
STA VALUE+1 
STY VALUE 

;BE SURE THAT THE BIT NUMBER IS BETWEEN AND 15 

TXA 

AND #0FH 

; DETERMINE WHICH BYTE AND WHICH BIT IN THAT BYTE 

TAX ;SAVE BIT NUMBER IN X 

AND #07H ;THE LOWER 3 BITS OF THE BIT NUMBER 

TAY ; IS THE BIT IN THE BYTE, SAVE IN Y 

TXA ; RESTORE BIT NUMBER 

LSR A ;DIVIDE BY 8 TO DETERMINE BYTE 

LSR A 

LSR A 

TAX ;SAVE BYTE NUMBER (0 OR 1) IN X 

;SET THE ZERO FLAG TO THE COMPLEMENT OF THE BIT 

LDA VALUE, X ;GET THE BYTE 

AND BITMSK,Y ;GET THE BIT 

;IF THE BIT IS REGISTER A IS AND Z IS 1 
;ELSE REGISTER A IS NOT AND Z IS 

;SET THE CARRY FLAG TO THE COMPLEMENT OF THE ZERO FLAG 

CLC ;ASSUME THE BIT IS 

BNE EXIT ;BRANCH IF THE BIT IS 

SEC ;ELSE THE BIT WAS 1 

RTS 
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BITMSK: 


.BYTE 


000UOOO1B 


;BIT 





= 


1 




.BYTE 


00000010B 


;BIT 


1 


= 


1 




• BYTE 


00000100B 


;BIT 


2 


= 


1 




.BYTE 


00001000B 


;BIT 


3 


= 


1 




.BYTE 


00010000B 


;BIT 


4 


= 


1 




• BYTE 


0O100000B 


;BIT 


5 


= 


1 




.BYTE 


01000000B 


;BIT 


6 


= 


1 




.BYTE 


10000000B 


;BIT 


7 


= 


1 


; DATA 














VALUE: 


. BLOCK 


2 


;TEM1 


'01 


Ik 


RY 



SAMPLE EXECUTION 



SC0703: 




LDA 


VAL+1 


LDY 


VAL 


LDX 


BITN 


JSR 


BITTST 


BRK 





JMP 



SC0703 



;LOAD DATA WORD INTO A,Y 

GET BIT NUMBER IN X 

TEST THE BIT 

RESULT OF VAL = 5555H AND BITN = 01 IS 

CARRY = 



;TEST DATA, CHANGE FOR DIFFERENT VALUES 
VAL: .WORD 5555H 
BITN: .BYTE 01H 



.END 



; PROGRAM 



Bit Field Extraction (BFE) 



7D 



Extracts a field of bits from a word and 
returns the field in the least significant bit 
positions. The width of the field and its start- 
ing bit position are specified. 

Procedure: The program obtains a mask 
with the specified number of 1 bits from a 



table, shifts the mask left to align it with the 
specified starting bit position, and obtains the 
field by logically ANDing the mask and the 
data. It then normalizes the bit field by shift- 
ing it right so that it starts in bit 0. 



Registers Used: All 

Execution Time: 34 » STARTING BIT POSI- 
TION plus 138 cycles overhead. The starting bit 
position determines the number of times the 
mask must be shifted left and the bit field right. 
For example, if the field starts in bit 6, the execu- 
tion time is 

34 • 6 + 138 = 204 + 138 = 342 cycles 
Program Size: 134 bytes 

Data Memory Required: Six bytes anywhere in 
RAM for the index (one byte at address 
INDEX), the width of the field (one byte at 
address WIDTH), the data value (two bytes start- 



ing at address VALUE), and the mask (two bytes 
starting at address MASK). 

Special Cases: 

1. Reauesting a field that would extend 
beyond the end of the word causes the program 
to return with only the bits through bit 15. That 
is, no wraparound is provided. If, for example, 
the user asks for a 10-bit field starting at bit 8, the 
program will return only 8 bits (bits 8 through 15). 

2. Both the starting bit position and the num- 
ber of bits in the field are interpreted mod 16. 
That is, for example, bit position 17 is equivalent 
to bit position 1 and a field of 20 bits is equivalent 
to a field of 4 bits. 



Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 

Starting (lowest) bit position of field 

Number of bits in the field 

Less significant byte of data value 
More significant byte of data value 



Exit Conditions 

More significant byte of bit field in 
accumulator 

Less significant byte of bit field in register Y 



Examples 



1. Data: Value - F67C I6 = 11 1101 1001 11 1100 2 
Starting bit position = 4 
Number of bits in the field = 8 



Result: Bit field = 0067, 6 = 0000000001 1001 1 1 2 

We have extracted 8 bits from the original 
data, starting with bit 4 (that is, bits 
4 through 11). 
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2. Data: Value = A2D4, 6 = 101000101 1010100 2 Result: Bitfield = 000B 16 = 000000000000101 1 2 

Starting bit position = 6 We have extracted 5 bits from the 

Number of bits in the field = 5 original data, starting with bit 6 (that is, 

bits 6 through 10). 



Title Bit Field Extraction 

Name: BFE 



Purpose: Extract a field of bits from a 16 bit word and 
return the field normalized to bit 0. 
NOTE: IF THE REQUESTED FIELD IS TOO LONG, THEN 
ONLY THE BITS THROUGH BIT 15 WILL BE 
RETURNED. FOR EXAMPLE IF A 4 BIT FIELD IS 
REQUESTED STARTING AT BIT 15 THEN ONLY 1 
BIT (BIT 15) WILL BE RETURNED. 

Entry: TOP OF STACK 

Low byte of return address, 

High* byte of return address, 

Starting (lowest) bit position in the field 

(0..15), 
Number of bits in the field (1..16), 
Low byte of data word, 
High byte of data word, 

Exit: Register A = High byte of field 

Register Y = Low byte of field 

Registers used: All 

Time: 138 cycles overhead plus 

(34 * starting bit position) cycles 

Size: Program 134 bytes 

Data 6 bytes 



; 

BFE: 



;SAVE RETURN ADDRESS IN Y,X 

PLA 

TAY 

PLA 

TAX 
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;GET THE STARTING BIT POSITION OF THE FIELD 

PLA 

AND #0FH ;MAKE SURE INDEX IS A VALUE BETWEEN AND 15 

STA INDEX ;SAVE INDEX 

;GET THE NUMBER OF BITS IN THE FIELD (MAP FROM 1.. WIDTH TO 0..WIDTH-1) 
PLA 



SEC 




SBC #1 


; SUBTRACT 1 


AND #0FH 


;MAKE SURE IT IS TO 15 


STA WIDTH 


;SAVE WIDTH 


;GET THE DATA WORD 




PLA 




STA VALUE 




PLA 




STA VALUE+1 




; RESTORE THE RETURN 


ADDRESS 


TXA 




PHA 




TYA 




PHA 





; CONSTRUCT THE MASK 

; INDEX INTO THE MASK ARRAY USING THE WIDTH PARAMETER 



.-MULTIPLY BY 2 SINCE MASKS ARE WORD-LENGTH 



LDA 


WIDTH 


ASL 


A 


TAY 




LDA 


MSKARY,Y 


STA 


MASK 


INY 




LDA 


MSKARY,Y 


STA 


MASK+1 



; SHIFT MASK, LEFT INDEX TIMES TO ALIGN IT WITH THE BEGINNING 
; OF THE FIELD 



; BRANCH IF INDEX = 





LDY 


INDEX 




BEQ 


GETFLD 


SHFTLP: 








ASL 


MASK 




ROL 


MASK+1 




DEY 






BNE 


SHFTLP 




;GET 


THE FIELD 


GETFLD: 








LDA 


VALUE 




AND 


MASK 




STA 


VALUE 




LDA 


VALUE+1 




AND 


MASK+1 




STA 


VALUE+1 



;SHIFT LOW BYTE, CARRY := BIT 7 
;ROTATE HIGH BYTE, BIT := CARRY 



;AND LOW BYTE OF VALUE WITH MASK 
; STORE IN VALUE 

;AND HIGH BYTE OF VALUE WITH MASK 
;STORE IT 
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;NORMALIZE THE FIELD TO BIT BY SHIFTING RIGHT INDEX TIMES 

LDY INDEX 

BEQ EXIT ;BRANCH IF INDEX = 



NORMLP: 



LSR 
ROR 
DEY 
BNE 



VALUE+1 
VALUE 

NORMLP 



; SHIFT HIGH BYTE RIGHT, CARRY 
.-ROTATE LOW BYTE RIGHT, BIT 7 

; CONTINUE UNTIL DONE 



BIT 
CARRY 



EXIT: 



LDY VALUE 
LDA VALUE+1 
RTS 



;MASK ARRAY WHICH IS USED TO CREATE THE MASK 



MSKARY: 



.WORD 

• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

• WORD 
.WORD 
.WORD 



00000U 
000000 

oooood 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000001 
000011 
000111 
001111 
011111 

111111 



00000 
00000 
00000 
00000 
00000 
00001 
00011 
00111 
01111 

11111 
11111 
11111 
11111 
11111 
11111 
11111 



00001B 
00011B 
00111B 
01111B 
11111B 
11111B 
11111B 
11111B 
11111B 
11111B 
11111B 
11111B 
11111B 
11111B 
11111B 
11111B 



INDEX 
WIDTH 
VALUE 
MASK: 



. BLOCK 1 

■BLOCK 1 

. BLOCK 2 

.BLOCK 2 



; INDEX INTO WORD 

;WIDTH OF FIELD (NUMBER OF BITS) 
;DATA WORD TO EXTRACT THE FIELD FROM 
; TEMPORARY FOR CREATING THE MASK 



SAMPLE EXECUTION: 



SC0704: 



LDA 


VAL+1 


PHA 




LDA 


VAL 


PHA 




LDA 


NBITS 


PHA 




LDA 


POS 



;PUSH THE DATA WORD 

;PUSH FIELD WIDTH (NUMBER OF BITS) 
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PHA ;PUSH INDEX TO FIRST BIT OF THE FIELD 

JSR BFE ; EXTRACT 

BRK ;RESULT FOR VAL = 1234H, NBITS = 4, POS = 4 IS 

; REGISTER A = 0, REGISTER Y = 3 
JMP SC0704 

;TEST DATA, CHANGE FOR OTHER VALUES 

VAL: .WORD 01234H 
NBITS: .BYTE 4 
POS: .BYTE 4 

. END ; PROGRAM 



Bit Field Insertion (BFI 



7E 



Inserts a field of bits into a word. The width 
of the field and its starting (lowest) bit posi- 
tion are specified. 

Procedure: The program obtains a mask 
with the specified number of bits from a 
table. It then shifts the mask and the bit field 



left to align them with the specified starting 
bit position. It logically ANDs the mask and 
the original data word, thus clearing the 
required bit positions, and then logically ORs 
the result with the shifted bit field. 



Registers Used: All 

Execution Time: 31 * STARTING BIT POSI- 
TION plus 142 cycles overhead. The starting bit 
position of the field determines how many times 
the mask and the field must be shifted left. For 
example, if the field is inserted starting in bit 10, 
the execution time is 
31 * 10 + 142 = 310 + 142 = 452 cycles. 

Program Size: 130 bytes 

Data Memory Required: Eight bytes anywhere in 
RAM for the index (one byte at address 
INDEX), the width of the field (one byte at 
address WIDTH), the value to be inserted (two 
bytes starting at address INSVAL), the data 



value (two bytes starting at address VALUE), 
and the mask (two bytes starting at address 
MASK). 

Special Cases: 

1. Attempting to insert a field that would 
extend beyond the end of the word causes the 
program to insert only the bits through bit 15. 
That is, no wraparound is provided. If, for exam- 
ple, the user attempts to insert a 6-bit field start- 
ing at bit 14, only 2 bits (bits 14 and 15) are 
actually replaced. 

2. Both the starting bit position and the length 
of the bit field are interpreted mod 16. That is, for 
example, bit position 17 is the same as bit posi- 
tion 1 and a 20-bit field is the same as a 4-bit field. 



Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 

Lowest bit position (starting position) of field 
Number of bits in the field * 

Less significant byte of bit field (value to 

insert) 
More significant byte of bit field (value to 

insert) 
Less significant byte of original data value 
More significant byte of original data value 



Exit Conditions 

More significant byte of result in accumulator 
Less significant byte of result in register Y 

The result is the original data value with the 
bit field inserted, starting at the specified 
bit position. 
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Examples 

1. Data: Value = F67C 16 = 11 1 101 1001 1 1 1 100 2 2. Data: 
Starting bit position = 4 
Number of bits in the field = 8 
Bit field = 008B 16 = 000000001000101 1 2 



Result: Value with bit field inserted = F8BC 16 
= 1111 1000101 11 100 2 
The 8-bit field has been inserted 
into the original value starting at bit 4 
(that is, into bits 4 through 11). 



Result: 



Value = A2D4, 6 = 101000101 1010100 2 

Starting bit position = 6 

Number of bits in the field = 5 

Bit field = 001 5 16 = 0000000000010101 2 

Value with bit field inserted = A554, 6 

= 1010010101010100 2 

The 5-bit field has been 

inserted into the original value starting at 

bit 6 (that is, into bits 6 through 10). 

Those five bits were 0101 1 2 (0B, 6 ) and 

are now 10101 2 (15 16 ). 



Title 
Name: 



Bit Field Insertion 
BFI 



Purpose: 



Entry: 



Exit: 



Insert a field of bits which is normalized to 

bit into a 16 bit word. 

NOTE: IF THE REQUESTED FIELD IS TOO LONG, THEN 
ONLY THE BITS THROUGH BIT 15 WILL BE 
INSERTED. FOR EXAMPLE IF A 4 BIT FIELD IS 
TO BE INSERTED STARTING AT BIT 15 THEN 
ONLY THE FIRST BIT WILL BE INSERTED AT 
BIT 15. 

TOP OF STACK 

Low byte of return address. 

High byte of return address, 

Bit position at which inserted field will 

start (0..15), 
Number of bits in the field (1..16), 
Low byte of value to insert, 
High byte of value to insert. 
Low byte of value. 
High byte of value 

Register A = High byte of value with field 

inserted 
Register Y = Low byte of value with field 

inserted 



Registers used: All 
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Time: 142 cycles overhead plus 

(31 * starting bit position) cycles 

Size: . Program 130 bytes 
Data 8 bytes 



BFI: 



;SAVE RETURN ADDRESS IN Y,X 

PLA 

TAY 

PLA 

TAX 

;GET THE LOWEST BIT NUMBER OF THE FIELD 

PLA 

AND #0 FH ;MAKE SURE INDEX IS A VALUE BETWEEN AND 15 

STA INDEX ;SAVE INDEX 

;GET THE NUMBER OF BITS IN THE FIELD (MAP FROM 1. .WIDTH TO 0. .WIDTH-1) 

PLA 

SEC 

SBC #1 ; SUBTRACT 1 

AND #0FH ;MAKE SURE IT IS TO 15 

STA WIDTH ;SAVE WIDTH 

;GET THE VALUE TO BE INSERTED (BIT FIELD) 

PLA 

STA INSVAL 

PLA 

STA INSVAL+1 

;GET THE DATA WORD 

PLA 

STA VALUE 

PLA 

STA VALUE+1 

; RESTORE THE RETURN ADDRESS 

TXA 

PHA 

TYA 

PHA 

; CONSTRUCT THE MASK 

; INDEX INTO THE MASK ARRAY USING THE WIDTH PARAMETER 

LDA WIDTH -MULTIPLY BY 2 SINCE MASKS ARE WORD-LENGTH 

TAY 

LDA MSKARY.Y 

STA MASK 

INY 

LDA MSKARY,Y 

STA MASK+1 
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; SHIFT MASK AND BIT FIELD LEFT INDEX TIMES TO ALIGN THEM 
; WITH THE BEGINING OF THE FIELD 



SHFTLP: 



LDY 
BEQ 

SEC 
ROL 

ROL 
ASL 
ROL 
DEY 
BNE 



INDEX 
INSERT 



MASK 

MASK+1 
INSVAL 
INSVAL+1 

SHFTLP 



; BRANCH IF INDEX = 

;FILL THE MASK WITH ONES 

; ROTATE LOW BYTE SHIFTING A 1 TO BIT AND 

; BIT 7 TO CARRY 

;ROTATE HIGH BYTE, BIT := CARRY 

;SHIFT THE INSERT VALUE SHIFTING IN ZEROS 



.'CONTINUE UNTIL INDEX = 



INSERT: 



;USE THE MASK TO ZERO THE FIELD AND THEN OR IN THE INSERT VALUE 



MSKARY: 



LDA 
AND 
ORA 
TAY 
LDA 
AND 
ORA 

; RETURN 
RTS 



VALUE 

MASK 

INSVAL 

VALUE+1 

MASK+1 

INSVAL+1 



;AND LOW BYTE OF VALUE WITH MASK 

; REGISTER Y = LOW BYTE OF THE NEW VALUE 

;AND HIGH BYTE OF VALUE WITH MASK 

; REGISTER A = HIGH BYTE OF THE NEW VALUE 



;MASK ARRAY WHICH IS USED TO CREATE THE MASK 

.WORD 1111111111111110B 

.WORD 1111111111111100B 

.WORD 1111111111111000B 

.WORD 1111111111110000B 

•WORD 1111111111100000B 

.WORD ■ 1111111111000000B 

.WORD 1111111110000000B 

.WORD 1111111100000000B 

.WORD 1111111000000000B 

.WORD 1111110000000000B 

•WORD 1111100000000000B 

•WORD 1111000000000000B 

.WORD 1110000000000000B 

.WORD 1100000000000000B 

.WORD 1O0OOOOO00O000O0B 

.WORD OO0O0O00OOOOOOO0B 



INDEX: 

WIDTH: 

INSVAL: 

VALUE: 

MASK: 



. BLOCK 
.BLOCK 
. BLOCK 
.BLOCK 
. BLOCK 



; INDEX INTO WORD 

;WIDTH OF FIELD 

; VALUE TO INSERT 

;DATA WORD 

.•TEMPORARY FOR CREATING THE MASK 
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SAMPLE EXECUTION: 



SC0705: 



LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
JSR 
BRK 



JMP 



VAL+1 

VAL 

VALINS+1 

VALINS 

NBITS 

POS 

BFI 

SC0705 



;PUSH THE DATA WORD 

;PUSH THE VALUE TO INSERT 

;PUSH THE FIELD WIDTH 

;PUSH THE STARTING POSITION OF THE FIELD 

INSERT 

RESULT FOR VAL = 1234H, VALINS = OEH, 
NBITS = 4, POS = OCH IS 
REGISTER A = E2H, REGISTER Y = 34H 



;TEST DATA, CHANGE FOR OTHER VALUES 
VAL: .WORD 01234H 
VALINS: .WORD OEH 
NBITS: .BYTE 04H 
POS: .BYTE OCH 



.END 



; PROGRAM 



Multiple-Precision Arithmetic Shift Right 

(MPASR) 



7F 



Shifts a multi-byte operand right 
arithmetically by a specified number of bit 
positions. The length of the number (in 
bytes) is 255 or less. The Carry flag is set to 
the value of the last bit shifted out of the 
rightmost bit position. The operand is stored 
with its least significant byte at the lowest 



address. 

Procedure: The program obtains the sign 
bit from the most significant byte, shifts that 
bit to the Carry, and then rotates the entire 
operand right one bit, starting with the most 
significant byte. It repeats the operation for 
the specified number of shifts. 



Registers Used: All 

Execution Time: NUMBER OF SHIFTS • (18 + 
18 * LENGTH OF OPERAND IN BYTES) + 85 
cycles. 

If, for example, NUMBER OF SHIFTS = 
6 and LENGTH OF OPERAND IN BYTES = 8, 
the execution time is 

6 * (18 + 18 • 8) + 85 = 6 • 162 + 85 = 1057 
cycles 

Program Size: 69 bytes 

Data Memory Required: Three bytes anywhere 
in RAM plus two bytes on page 0. The three bytes 
anywhere in RAM are temporary storage for the 



number of shifts (one byte at address NBITS) 
and the length of the operand (one byte at 
address LENGTH) and the most significant byte 
of the operand (one byte at address MSB). The 
two bytes on page hold a pointer to the operand 
(starting at address PTR,00D0| 16 in the listing). 

Special Cases: 

1. If the length of the operand is zero, the pro- 
gram exits immediately with the operand 
unchanged and the Carry flag cleared. 

2. If the number of shifts is zero, the program 
exits immediately with the operand unchanged 
and the Carry flag cleared. 



Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 

Number of shifts (bit positions) 

Length of the operand in bytes 

Less significant byte of starting address of 

operand (address of its least significant 

byte) 
More significant byte of starting address of 

operand (address of its least significant 

byte) 



Exit Conditions 

Operand shifted right arithmetically by the 
specified number of bit positions. The origi- 
nal sign bit is extended to the right. The 
Carry flag is set according to the last bit 
shifted from the rightmost bit position (or 
cleared if either the number of shifts or the 
length of the operand is zero). 
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Examples 



1. Data: Length of operand (in bytes) = 08 
Operand = 85A4C719FE06741E 16 
Number of shifts — 04 

Result: Shifted operand = F85A4C719FE06741, 6 . 
This is the original operand shifted right 
four bits arithmetically (the four most 
significant bits thus all take on the value 
of the original sign bit, which was 1). 
Carry = 1, since the last bit shifted from 
the rightmost bit position was 1. 



Data: Length of operand (in bytes) = 04 
Operand = 3F6A42D3 16 
Number of shifts = 03 

Result: Shifted operand = 07ED485A, 6 . 

This is the original operand shifted 
right three bits arithmetically (the 
three most significant bits thus all 
take on the value of the original sign 
bit, which was 0). 

Carry = 0, since the last bit shifted 
from the rightmost bit position was 0. 



Title 
Name: 



Multiple-precision arithmetic shift right 
MPASR 



Purpose: 
Entry: 



Exit: 



Size: 



Arithmetic shift right a multi-byte operand 
N bits. 

TOP OF STACK 

Low byte of return address, 
High byte of return address, 
Number of bits to shift. 
Length of the operand in bytes, 
Low byte of address of the operand, 
High byte of address of the operand 

The operand is stored with ARRAY [0] as its 
least significant byte and ARRAY [LENGTH-1] 
its most significant byte. 

Operand shifted right with the most significant 
bit propagated. 

CARRY := Last bit shifted from least 
significant position. 



Registers used: All 
Time: 



85 cycles overhead plus 
((18 * length) + 18) cycles per shift 

Program 69 bytes 
Data 3 bytes plus 

2 bytes in page zero 



MPASR: 
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; EQUATES 

PTR: .EQU ODOH ; PAGE ZERO FOR POINTER TO OPERAND 

;SAVE RETURN ADDRESS 

PLA 

TAY 

PLA 

TAX 

;GET NUMBER OF BITS 

PLA 

STA NBITS 

;GET LENGTH OF OPERAND 

PLA 

STA LENGTH 

;GET STARTING ADDRESS OF THE OPERAND 

PLA 

STA PTR 

PLA 

STA PTR+1 

; RESTORE THE RETURN ADDRESS 

TXA 

PHA 

TYA 

PHA ; RESTORE RETURN ADDRESS 

.-INITIALIZE 

CL C ; CLEAR CARRY 

LDA LENGTH 

BEQ EXIT ;EXIT IF LENGTH OF OPERAND IS 

LDA NBITS 

BEQ EXIT ;EXIT IF NUMBER OF BITS TO SHIFT IS 

; WITH CARRY CLEAR 

DECREMENT POINTER SO THAT THE LENGTH BYTE MAY BE USED BOTH 

; AS A COUNTER AND THE INDEX 

LDA PTR 

BNE MPASR1 
„„„„, °fC PTR+1 .-DECREMENT HIGH BYTE IF A BORROW IS NEEDED 

MPASR1: DEC PTR ; ALWAYS DECREMENT LOW BYTE 

;LOOP ON THE NUMBER OF SHIFTS TO PERFORM 

LDY LENGTH 

LDA (PTR),Y ;GET THE MOST SIGNIFICANT BYTE 

STA MSB ;SAVE IT FOR THE SIGN 

LDA MSB ;GET THE MOST SIGNIFICANT BYTE 

A f*; A ;SHIFT BIT 7 TO CARRY FOR SIGN EXTENSION 

LDY LENGTH ;Y = INDEX TO LAST BYTE AND THE COUNTER 

;SHIFT RIGHT ONE BIT 



ASRLP: 
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LOOP: 



LDA 


(PTR) ,Y 


ROR 


A 


STA 


(PTR) ,Y 


DEY 




BNE 


LOOP 



GET NEXT BYTE 

ROTATE BIT 7 := CARRY, CARRY := BIT 

STORE NEW VALUE 

DECREMENT COUNTER 

CONTINUE THROUGH ALL THE BYTES 



.•DECREMENT NUMBER OF SHIFTS 

DEC NBITS ; DECREMENT SHIFT COUNTER 

BNE ASRLP ;CONTINUE UNTIL DONE 



EXIT: 



RTS 



;DATA SECTION 

NBITS: .BLOCK 1 

LENGTH : . BLOCK 1 

MSB: .BLOCK 1 



NUMBER OF BITS TO SHIFT 
LENGTH OF OPERAND IN BYTES 
MOST SIGNIFICANT BYTE 



SAMPLE EXECUTION: 



SC0706: 



LDA 
PHA 
LDA 
PHA 

LDA 
PHA 

LDA 
PHA 
JSR 
BRK 



AYADR+1 ;PUSH STARTING ADDRESS OF OPERAND 
AYADR 

#SZAY ;PUSH LENGTH OF OPERAND 

SHIFTS ;PUSH NUMBER OF SHIFTS 



MPASR 



SHIFT 

RESULT OF SHIFTING AY = EDCBA987654321H, 4 BITS IS 

AY = FEDCBA98765432H, C=0 

032H 

054H 

076H 

098H 

OBAH 

ODCH 

OFEH 



IN MEMORY AY 

AY+1 
AY+2 
AY+3 
AY+4 
AY+5 
AY+6 



JMP 



SC0706 



;DATA SECTION 
SZAY: .EQU 
SHIFTS: .BYTE 
AYADR: .WORD 
AY .BYTE 



7 ; LENGTH OF OPERAND 

4 ;NUMBER OF SHIFTS 

AY ; STARTING ADDRESS OF OPERAND 

21H,43H,65H,87H,0A9H,0CBH,0EDH 



.END 



; PROGRAM 



Multiple-Precision Logical Shift Left (MPLSL) 



7G 



Shifts a multi-byte operand left logically 
by a specified number of bit positions. The 
length of the operand (in bytes) is 255 or less. 
The Carry flag is set to the value of the last bit 
shifted out of the leftmost bit position. The 
operand is stored with its least significant 



byte at the lowest address. 

Procedure: The program clears the Carry 
initially (to fill with a bit) and then rotates 
the entire operand left one bit, starting with 
the least significant byte. It repeats the opera- 
tion for the specified number of shifts. 



Registers Used: All 

Execution Time: NUMBER OF SHIFTS * (16 + 
20 • LENGTH OF OPERAND IN BYTES) + 73 
cycles. 

If, for example, NUMBER OF SHIFTS = 4 
and LENGTH OF OPERAND IN BYTES = 6 

(i.e., a 4-bit shift of a byte operand) the execution 
time is 

4 * (6 + 20 * 6) + 73 = 4 • (136) + 73 = 
617 cycles. 

Data Memory Required: Two bytes anywhere 1 in 
RAM plus two bytes on page 0. The two bytes 



anywhere in RAM are temporary storage for the 
number of shifts (one byte at address NBITS) 
and the length of the operand in bytes (one byte 
at address LENGTH). The two bytes on page 
hold a pointer to the operand (starting at address 
PTR, 00D0 16 in the listing). 

Special Cases: 

1. If the length of the operand is zero, the pro- 
gram exits immediately with the operand 
unchanged and the Carry flag cleared. 

2. If the number of shifts is zero, the program 
exits immediately with the operand unchanged 
and the Carry flag cleared. 



Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 

Number of shifts (bit positions) 

Length of the operand in bytes 

Less significant byte of starting address of 

operand (address of its least significant 

byte) 
More significant byte of starting address of 

operand (address of its least significant 

byte) 



Exit Conditions 

Operand shifted left logically by the specified 
number of bit positions (the least significant 
bit positions are filled with zeros). The Carry 
flag is set according to the last bit shifted 
from the leftmost bit position (or cleared if 
either the number of shifts or the length of 
the operand is zero). 
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Examples 

1. Data: Length of operand (in bytes) = 08 
Operand = 85A4C719FE06741E 16 
Number of shifts = 04 

Result: Shifted operand = 5A4C719FE06741E0 16 . 
This is the original operand shifted 
left four bits logically; the four least 
significant bits are all cleared. 

Carry = 0, since the last bit shifted from 
the leftmost bit position was 0. 



2. Data: Length of operand (in bytes) = 04 
Operand = 3F6A42D3 16 
Number of shifts = 03 

Result: Shifted operand = FB521698 16 . This is 
the original operand shifted left three 
bits logically; the three least significant 
bits are all cleared. 
Carry = 1, since the last bit 
shifted from the leftmost bit position 
was 1. 



Title 
Name: 



Purpose: 
Entry: 



Exit: 



Size: 



Multiple-precision logical shift left 
MPLSL 



Logical shift left a multi-byte operand N bits 

TOP OF STACK 

Low byte of return address, 
High byte of return address, 
Number of bits to shift, 
Length of the operand in bytes, 
Low byte of address of the operand, 
High byte of address of the operand 

The operand is stored with ARRAY [0] as its 
least significant byte and ARRAY ILENGTH-l] 
its most significant byte. 

Operand shifted left filling the least 
significant bits with zeros. 
CARRY := Last most significant bit 



Registers used: All 
Time: 



73 cycles overhead plus 

((20 * length) + 16) cycles per shift 

Program 54 bytes 
Data 2 bytes plus 

2 bytes in page zero 
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MPLSL: 



LSLLP: 



LOOP: 



; EQUATES 
PTR: .EQO 



ODOH 



;PAGE ZERO FOR POINTER TO OPERAND 



;SAVE RETURN ADDRESS 

PLA 

TAY 

PLA 

TAX 

;GET NUMBER OF BITS 

PLA 

STA NBITS 



;GET LENGTH OF OPERAND 
LENGTH 



PLA 
STA 



;GET STARTING ADDRESS OF THE OPERAND 

PLA 

STA PTR 

PLA 

STA PTR+1 

; RESTORE THE RETURN ADDRESS 

TXA 

PHA 

TYA 

PHA 



/INITIALIZE 

CLC 

LDA LENGTH 

BEQ EXIT 

LDA NBITS 

BEQ EXIT 



; RESTORE RETURN ADDRESS 

; CLEAR CARRY 

;EXIT IF LENGTH OF THE OPERAND IS 

;EXIT IF NUMBER OF BITS TO SHIFT IS 
; WITH CARRY CLEAR 



;LOOP ON THE NUMBER OF SHIFTS TO PERFORM 



LDY 
LDX 
CLC 



#0 
LENGTH 



;SHIFT LEFT ONE BIT 



LDA 
ROL 
STA 
INY 
DEX 
BNE 



(PTR) ,Y 
A 
(PTR),Y 



LOOP 



;Y = INDEX TO LOW BYTE OF THE OPERAND 

;X = NUMBER OF BYTES 

;CLEAR CARRY TO FILL WITH ZEROS 



;GET NEXT BYTE 

;ROTATE BIT := CARRY, CARRY := BIT 7 

; STORE NEW VALUE 

; INCREMENT TO NEXT BYTE 

; DECREMENT COUNTER 

.-CONTINUE THROUGH ALL THE BYTES 



; DECREMENT NUMBER OF SHIFTS 

DEC NBITS ; DECREMENT SHIFT COUNTER 

BNE LSLLP .-CONTINUE UNTIL DONE 
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EXIT: 



RTS 



;DATA SECTION 
NBITS: .BLOCK 1 
LENGTH: .BLOCK 1 



;NUMBER OF BITS TO SHIFT 
; LENGTH OF OPERAND 



SAMPLE EXECUTION: 



SC0707: 



LDA 
PHA 
LDA 
PHA 

LDA 
PHA 

LDA 
PHA 
JSR 
BRK 



AYADR+1 ;PUSH STARTING ADDRESS OF OPERAND 
AYADR 

#SZAY ;PUSH LENGTH OF OPERAND 

SHIFTS ;PUSH NUMBER OF SHIFTS 
MPLSL 



SHIFT 




RESULT OF SHIFTING AY = EDCBA987654321H , 


4 BITS 


AY = DCBA9876543210H, 


C = 


IN MEMORY AY = 010H 




AY+1 = 032H 




AY+2 = 054H 




AY+3 = 076H 




AY+4 = 098H 




AY+5 = OBAH 




AY+6 = ODCH 





IS 



JMP 



SC0707 



;DATA SECTION 
SZAY: .EQU 
SHIFTS: .BYTE 
AYADR: .WORD 
AY: .BYTE 

.END 



7 
4 
AY 



LENGTH OF OPERAND 

NUMBER OF SHIFTS 

STARTING ADDRESS OF OPERAND 



21H,43H,65H,87H,0A9H,0CBH,0EDH 
; PROGRAM 



Multiple-Precision Logical Shift Right (MPLSR) 



7H 



Shifts a multi-byte number right logically 
by a specified number of bit positions. The 
length of the operand (in bytes) is 255 or less. 
The Carry flag is set to the value of the last bit 
shifted out of the rightmost bit position. The 
operand is stored with its least significant 



Registers Used: All 

Execution Time: NUMBER OF SHIFTS * (14 + 
18 « LENGTH OF OPERAND IN BYTES) + 80 
cycles. 

If, for example, NUMBER OF SHIFTS = 4 
and LENGTH OF OPERAND IN BYTES = 8 
(i.e., a 4-bit shift of an 8-byte operand), the 
execution time is 

4 . (14 + 18 • 8) + 80 = 4 « (158) + 80 = 
712 cycles. 

Program Size: 59 bytes 

Data Memory Required: Two bytes anywhere in 
RAM plus two bytes on page 0. The two bytes 



byte at the lowest address. 

Procedure: The program clears the Carry 
initially (to fill with a bit) and then rotates 
the entire operand right one bit, starting with 
the most significant byte. It repeats the 
operation for the specified number of shifts. 



anywhere in RAM are temporary storage for the 
number of shifts (one byte at address NBITS) 
and the length of the operand in bytes (one byte 
at address LENGTH). The two bytes on page 
hold a pointer to the operand (starting at address 
PTR,00D0 16 in the listing). 

Special Cases: 

1. If the length of the operand is zero, the pro- 
gram exits immediately with the operand 
unchanged and the Carry flag cleared. 

2. If the number of shifts is zero, the program 
exits immediately with the operand unchanged 
and the Carry flag cleared. 



Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 

Number of shifts (bit positions) 

Length of the operand in bytes 

Less significant byte of starting address of 

operand (address of its least significant 

byte) 
More significant byte of starting address of 

operand (address of its least significant 

byte) 



Exit Conditions 

Operand shifted right logically by the 
specified number of bit positions (the most 
significant bit positions are filled with zeros). 
The Carry flag is set according to the last bit 
shifted from the rightmost bit position, (or 
cleared if either the the number of shifts or 
the length of the operand is zero). 
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Examples 



1. Data: Length of operand (in bytes) = 08 
Operand = 85A4C719FE06741E 16 
Number of shifts = 04 

Result: Shifted operand = 085A4C719FE06741, 6 . 
This is the original operand shifted right 
four bits logically; the four most 
significant bits are all cleared. 
Carry = 1, since the last bit shifted from 
the rightmost position was 1. 



Data: Length of operand (in bytes) = 04 
Operand = 3F6A42D3 16 
Number of shifts = 03 

Result: Shifted operand = 07ED485A 16 . 
This is the original operand shifted 
right three bits logically; the three least 
significant bits are all cleared. 
Carry = 0, since the last bit shifted 
from the rightmost bit position was 0. 



Title 
Name: 



Purpose: 
Entry: 



Exit: 



Size: 



Multiple-Precision logical shift right 
MPLSR 



Logical shift right a multi-byte operand N bits 

TOP OF STACK 

Low byte of return address, 
High byte of return address, 
Number of bits to shift. 
Length of the operand in bytes, 
Low byte of address of the operand, 
High byte of address of the operand 

The operand is stored with ARRAY [0] as its 
least significant byte and ARRAY [LENGTH-1] 
its most significant byte. 

Operand shifted right filling the most 
significant bits with zeros 
CARRY := Last bit shifted from the least 
significant position 



Registers used: All 
Time: 



85 cycles overhead plus 
((18 * length) + 14) cycles per shift 

Program 59 bytes 
Data 2 bytes plus 

2 bytes in page zero 



MPLSR: 
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; EQUATES 

PTR: . EQU ODOH ;PAGE ZERO FOR POINTER TO OPERAND 

;SAVE RETURN ADDRESS 

PLA 

TAY 

PLA 

TAX 

;GET NUMBER OF BITS 

PLA 

STA NBITS 

;GET LENGTH OF OPERAND 

PLA 

STA LENGTH 

;GET' STARTING" ADDRESS OF THE OPERAND 

PLA 

STA PTR 

PLA 

STA PTR+1 

; RESTORE THE RETURN ADDRESS 

TXA 

PHA 

TYA 

PHA ; RESTORE RETURN ADDRESS 

INITIALIZE 

CLC ; CLEAR CARRY 

LDA LENGTH 

BEQ EXIT ;EXIT IF LENGTH OF OPERAND IS 

LDA NBITS 

BEQ EXIT ;EXIT IF NUMBER OF BITS TO SHIFT IS 

; WITH CARRY CLEAR 

; DECREMENT POINTER SO THAT THE LENGTH BYTE MAY BE USED BOTH 
; AS A COUNTER AND THE INDEX 
LDA PTR 
BNE MPLSR1 

MprqR , ?!!; H* +1 .-DECREMENT HIGH BYTE IF A BORROW IS NEEDED 

MPLSR1: DEC PTR ;ALWAY DECREMENT HIGH BYTE 

;LOOP ON THE NUMBER OF SHIFTS TO PERFORM 
LSRLP: 

LDY LENGTH -y = INDEX TO MSB AND COUNTER 

CLC ; CLEAR CARRY TO FILL WITH ZEROS 

;SHIFT RIGHT ONE BIT 
LOOP: 

LDA (PTR),Y ;GET NEXT BYTE 

cSa ^ D m D . „ ,-ROTATE BIT 7 := CARRY, CARRY := BIT 

I STA (PTR),Y ;STORE NEW VALUE 
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DEY 
BNE 



LOOP 



DECREMENT COUNTER 

.-CONTINUE THROUGH ALL THE BYTES 



; DECREMENT NUMBER OF SHIFTS 

DEC NBITS .-DECREMENT SHIFT COUNTER 

BNE LSRLP ;CONTINUE UNTIL DONE 



EXIT: 



RTS 



;DATA SECTION 
NBITS: .BLOCK 1 
LENGTH: .BLOCK 1 



.-NUMBER OF BITS TO SHIFT 
; LENGTH OF OPERAND 



SAMPLE EXECUTION: 



SC0708: 



LDA 
PHA 
LDA 
PHA 

LDA 
PHA 

LDA 
PHA 
JSR 
BRK 



AYADR+1 ;PUSH STARTING ADDRESS OF OPERAND 
AYADR 

#SZAY ;PUSH LENGTH OF OPERAND 



SHIFTS 



MPLSR 



PUSH NUMBER OF SHIFTS 

e u i pip 

RESULT OF SHIFTING AY = EDCBA987654321H , 4 BITS IS 
AY = 0EDCBA98765432H, C=0 
032H 
054H 
76H 
9 8H 
OBAH 
ODCH 
OOEH 



IN MEMORY AY 

AY+1 
AY +2 
AY +3 
AY+4 
AY+5 
AY + 6 



JMP 



SC0708 



;DATA SECTION 
SZAY: .EQU 
SHIFTS: .BYTE 
AYADR: .WORD 
AY: .BYTE 



/ 
4 
AY 



LENGTH OF OPERAND 

NUMBER OF SHIFTS 

STARTING ADDRESS OF OPERAND 



21H,4 3H,6SH,87H,0A9H,0CBH,0EDH 



, END 



; PROGRAM 



Multiple-Precision Rotate Right (MPRR) 



71 



Rotates a multi-byte operand right by a 
specified number of bit positions (as if the 
most significant bit and least significant bit 
were connected directly). The length of the 
operand in bytes is 255 or less. The Carry flag 
is set to the value of the last bit shifted out of 
the rightmost bit position. The operand is 
stored with its least significant byte at the 



lowest address. 

Procedure: The program shifts bit of the 
least significant byte of the operand to the 
Carry flag and then rotates the entire operand 
right one bit, starting with the most signifi- 
cant byte. It repeats the operation for the 
specified number of shifts. 



Registers used: All 

Execution Time: NUMBER OF SHIFTS * (21 
+ 18 « LENGTH OF OPERAND IN BYTES) 
+ 85 cycles. 

If for example, NUMBER OF SHIFTS = 6 and 
LENGTH OF OPERAND IN BYTES = 4 (i.e. a 
6-bit shift of a 4-byte operand), the execution 
time is 

6* (21 + 18*4) + 85 = 6« (93) + 85 

+ 643 cycles. 

Program Size: 63 bytes 

Data Memory Required: Two bytes anywhere in 
RAM plus two bytes on page 0. The two bytes 



anywhere in RAM are temporary storage for the 
number of shifts (one byte at address NBITS) 
and the length of the operand in bytes (one byte 
at address LENGTH). The two bytes on page 
hold a pointer to the operand (starting at address 
PTR,00D0 l6 in the listing). 

Special Cases: 

1. If the length of the operand is zero, the 
program exits immediately with the operand 
unchanged and the Carry flag cleared. 

2. If the number of shifts is zero, the pro- 
gram exits immediately with the operand 
unchanged and the Carry flag cleared. 



Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 

Number of shifts (bit positions) 

Length of the operand in bytes 

Less significant byte of starting address of 

operand (address of its least significant 

byte) 
More significant byte of starting address of 

operand (address of its least significant 

byte) 



Exit Conditions 

Operand rotated right by the specified num- 
ber of bit positions (the most significant bit 
positions are filled from the least significant 
bit positions). The Carry flag is set according 
to the last bit shifted from the rightmost bit 
position (or cleared if either the number of 
shifts or the length of the operand is zero). 
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Examples 



1. Data: 



Result: 



Length of operand (in bytes) = 08 

Operand = 85A4C719FE06741E 16 

Number of shifts = 04 

Shifted operand = E85A4C719F306741 16 . 

This is the original operand rotated right 

four bits: the four most significant bits 

are equivalent to the original four 

least significant bits. 

Carry = 1, since the last bit shifted from 

the rightmost bit position was 1. 



2. Data: 



Result: 



Length of operand (in bytes) = 04 

Operand = 3F6A42D3 16 

Number of shifts = 03 

Shifted operand = 67ED485A 16 . This is 

the original operand rotated right 3 bits; 

the three most significant bits (Oil) are 

equivalent to the original three least 

significant bits. 

Carry = 0, since the last bit shifted 

from the rightmost bit position was 0. 



Title 
Name: 



Purpose: 
Entry: 



Exit: 



Size: 



Multiple-precision rotate right 
MPRR 



Rotate right a multi-byte operand N bits 

TOP OF STACK 

Low byte of return address, 
High byte of return address, 
Number of bits to shift, 
Length of the operand in bytes, 
Low byte of address of the operand, 
High byte of address of the operand 

The operand is stored with ARRAY 10] as its 
least significant byte and ARRAY [LENGTH-1] 
its most significant byte. 

Operand rotated right 

CARRY := Last bit shifted from the least 
significant position 



Registers used: All 
Time: 



85 cycles overhead plus 
((18 * length) + 21) cycles per shift 

Program 63 bytes 
Data 2 bytes plus 

2 bytes in page zero 



; EQUATES 
PTR: .EQU 



0D0H 



;PAGE ZERO FOR POINTER TO OPERAND 



MPRR: 
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;SAVE RETURN ADDRESS 

PLA 

TAY 

PLA 

TAX 

;GET NUMBER OF BITS 

PLA 

STA NBITS 

;GET LENGTH OF OPERAND 



MPRR1: 



RRLP: 



LOOP: 



PLA 
STA 



LENGTH 



;GET STARTING ADDRESS OF THE OPERAND 

PLA 

STA PTR 

PLA 

STA PTR+1 

/RESTORE THE RETURN ADDRESS 

TXA 

PHA 

TYA 

PHA 



.-INITIALIZE 

CLC 

LDA LENGTH 

BEQ EXIT 

LDA NBITS 

BEQ EXIT 



; RESTORE RETURN ADDRESS 

; CLEAR CARRY 

;EXIT IF LENGTH OF THE OPERAND IS 

;EXIT IF NUMBER OF BITS TO SHIFT IS 
; WITH CARRY CLEAR 



'" D fc R f M ^ T P0INTER S0 THAT THE LENGTH BYTE MAY BE USED BOTH 
; AS A COUNTER AND THE INDEX 
LDA PTR 
BNE MPRR1 

!?!£ l™ +1 ; DECREMENT HIGH BYTE IF A BORROW IS NEEDED 

DEC PTR ;ALWAYS DECREMENT LOW BYTE 

;LOOP ON THE NUMBER OF SHIFTS TO PERFORM 



LDY 
LDA 
LSR 
LDY 



#1 

(PTR) ,Y 
A 
LENGTH 



;ROTATE RIGHT ONE BIT 



LDA 
ROR 



(PTR) ,Y 
A 



;GET LOW BYTE OF THE OPERAND 

;CARRY := BIT OF LOW BYTE 

;Y = INDEX TO HIGH BYTE AND COUNTER 



;GET NEXT BYTE 

;ROTATE BIT 7 := CARRY, CARRY : = BIT 
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STA (PTR),Y 

DEY 

BNE LOOP 



STORE NEW VALUE 

DECREMENT COUNTER 

CONTINUE THROUGH ALL THE BYTES 



; DECREMENT NUMBER OF SHIFTS 

DEC NBITS ; DECREMENT SHIFT COUNTER 

BNE RRLP ;CONTINUE UNTIL DONE 



EXIT: 



RTS 



;DATA SECTION 
NBITS: .BLOCK 1 
LENGTH: .BLOCK 1 



;NUMBER OF BITS TO. SHIFT 
.•LENGTH OF OPERAND 



SAMPLE EXECUTION: 



SC0709: 



LDA 
PHA 
LDA 
PHA 

LDA 
PHA 

LDA 
PHA 
JSR 
BRK 



AYADR+1 ;PUSH STARTING ADDRESS OF OPERAND 
AYADR 

#SZAY ;PUSH LENGTH OF OPERAND 



SHIFTS 



MPRR 



PUSH NUMBER OF SHIFTS 

ROTATE ,,.,.,, 

RESULT OF ROTATING AY = EDCBA98 /6S4321H 

AY = 1EDCBA98765432H 

032H 

054H 

076H 

098H 

OBAH 

ODCH 

U1EH 



4 BITS IS 
C = 



IN MEMORY AY 

AY+1 
AY+2 
AY+3 
AY+4 
AY+5 
AY+6 



JMP 



SC0709 



;DATA SECTION 
SZAY: .EQU 
SHIFTS: .BYTE 
AYADR : . WORD 
AY: .BYTE 



7 
4 
AY 



LENGTH OF OPERAND IN BYTES 

NUMBER OF SHIFTS 

STARTING ADDRESS OF OPERAND 



2 1H , 4 3H , 6 5H , 87H , 0A9H , OCBH , OEDH 



, END 



; PROGRAM 



Multiple-Precision Rotate Left (MPRL) 



7J 



Rotates a multi-byte operand left by a 
specified number of bit positions (i.e., as if 
the most significant bit and least significant 
bit were connected directly). The length of 
the operand in bytes is 255 or less. The Carry 
flag is set to the value of the last bit shifted 
out of the leftmost bit position. The operand 
is stored with its least significant byte at the 



lowest address. 

Procedure: The program shifts bit 7 of the 
most significant byte of the operand to the 
Carry flag. It then rotates the entire operand 
left one bit, starting with the least significant 
byte. It repeats the operation for the specified 
number of shifts. 



Registers Used: All 

Execution Time: NUMBER OF SHIFTS • (27 + 
20 » LENGTH OF OPERAND IN BYTES) + 73 

cycles. 

If, for example, NUMBER OF SHIFTS = 4 
and LENGTH OF OPERAND IN BYTES = 8 
(i.e., a 4-bit shift of an 8-byte operand), the 
execution time is 

4 . (27 + 20 • 8) + 73 = 4 - (187) + 73 = 
821 cycles. 

Program Size: 60 bytes 

Data Memory Required: Two bytes anywhere in 
RAM plus two bytes on page 0. The two bytes 



anywhere in RAM are temporary storage for the 
number of shifts (one byte at address NBITS) 
and the length of the operand in bytes (one byte 
at address LENGTH). The two bytes on page 
hold a pointer to the operand (starting at address 
PTR,00D0 16 in the listing). 

Special Cases: 

1. If the length of the operand is zero, the 
program exits immediately with the operand 
unchanged and the Carry flag cleared. . 

2. If the number of shifts is zero, the program 
exits immediately with the operand unchanged 
and the Carry flag cleared. 



Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 
Number of shifts (bit positions) 
Length of the operand in bytes 

Less significant byte of starting address of 

operand (address of its least significant 

byte) 
More significant byte of starting address of 

operand (address of its least significant 

byte) 



Exit Conditions 

Operand rotated left by the specified number 
of bit positions (the least significant bit posi- 
tions are filled from the most significant bit 
positions). The Carry flag is set according to 
the last bit shifted from the leftmost bit posi- 
tion (or cleared if either the number of shifts 
or the length of the operand is zero). 
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Examples 



Data: 



Result: 



Length of operand (in bytes) = 08 
Operand = 85A4C719FE06741E 16 
Number of shifts = 04 

Shifted operand = 5A4C719FE06741E8, 6 . 
This is the original operand rotated left 
four bits; the four least significant bits 
are equivalent to the original four most 
significant bits. 

Carry = 0, since the last bit shifted 
from the leftmost bit position was 0. 



2. Data: Length of operand (in bytes) = 04 
Operand = 3F6A42D3 16 
Number of shifts = 03 

Result: Shifted operand = FB521699 16 . This is 

the"original operand rotated left three bits; 
the three least significant bits (001) 
are equivalent to the original three most 
significant bits. 

Carry = 1, since the last bit shifted 
from the leftmost bit position was 1. 



Title 
Name: 



Purpose: 
Entry: 



Exit: 



Multiple-precision rotate left 
MPRL 



Rotate left a multi-byte operand N bits 

TOP OF STACK 

Low byte of return address, 
High byte of return address, 
Number of bits to shift, 
Length of the operand in bytes, 
Low byte of address of the operand, 
High byte of address of the operand 

The operand is stored with ARRAY [0] as its 
least significant byte and ARRAY ILENGTH-l ] 
its most significant byte. 

Number rotated left 

CARRY := Last bit shifted from the most 
significant position 



Registers used: All 



Time: 



Size: 



73 cycles overhead plus 
((20 * length) + 27) cycles per shift 

Program 60 bytes 
Data 2 bytes plus 

2 bytes in page zero 



; EQUATES 
PTR: .EQU 



OD0H 



;PAGE ZERO FOR POINTER TO OPERAND 
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MPRL: 



RLLP: 



LOOP: 



;SAVE RETURN ADDRESS 

PLA 

TAY 

PLA 

TAX 

;GET NUMBER OF BITS 

PLA 

STA NBITS 

;GET LENGTH OF OPERAND 

PLA 

STA LENGTH 

;GET STARTING ADDRESS OF THE OPERAND 

PLA 

STA PTR 

PLA 

STA PTR+1 

; RESTORE THE RETURN ADDRESS 

TXA 

PHA 

TYA 

PHA 



.-INITIALIZE 

CLC 

LDA LENGTH 

BEQ EXIT 

LDA NBITS 

BEQ EXIT 



;RESTORE RETURN ADDRESS 

; CLEAR CARRY 

;EXIT IF THE LENGTH OF THE OPERAND IS 

;EXIT IF NUMBER. OF BITS TO SHIFT IS 
; WITH CARRY CLEAR 



;LOOP ON THE NUMBER OF SHIFTS TO PERFORM 



LDY LENGTH 

DEY 

LDA (PTR),Y 

ASL A 

LDY #0 

LDX LENGTH 

; ROTATE LEFT ONE BIT 

LDA (PTR),Y 

ROL A 

STA (PTR),Y 

INY 

DEX 

BNE LOOP 



;GET' HIGH BYTE OF THE OPERAND 
,'CARRY := BIT 7 OF HIGH BYTE 
;Y = INDEX TO LEAST SIGNIFICANT BYTE 
;X = NUMBER OF BYTES 



;GET NEXT BYTE 

;ROTATE BIT 7 := CARRY, CARRY := BIT 

; STORE NEW VALUE- 

.•INCREMENT TO NEXT BYTE 

.-DECREMENT COUNTER 

/•CONTINUE THROUGH ALL THE BYTES 



; DECREMENT NUMBER OF SHIFTS 

DEC NBITS .-DECREMENT SHIFT COUNTER 

BNE RLLP • CONTINUE UNTIL DONE 
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EXIT: 



RTS 



;DATA SECTION 
NBITS: .BLOCK 1 
LENGTH: .BLOCK 1 



;NUMBER OF BITS TO SHIFT 
; LENGTH OF OPERAND 



SAMPLE EXECUTION: 



SC0710: 



LDA 
PHA 
LDA 
PHA 

LDA 
PHA 

LDA 
PHA 
JSR 
BRK 



AYADR+1 ;PUSH STARTING ADDRESS OF .OPERAND 
AYADR 

#SZAY ;PUSH LENGTH OF OPERAND 

SHIFTS ;PUSH NUMBER OF- SHIFTS 
MPRL 



ROTATE 


















RESULT 


OF 


ROTATING 


AY = 


EDCBA987654321H, 


4 


BITS 


IS 










AY = 


DCBA987654321EH, 


C 


=0 




IN MEMORY AY 


= 


01EH 














AY+1 


= 


032H 














AY+2 


= 


054H 














AY+3 


= 


7 6H 














AY+4 


= 


098H 














AY+5 


= 


OBAH 














AY+6 


= 


ODCH 











JMP 



SC0710 



;DATA SECTION 
SZAY: .EQU 
SHIFTS: .BYTE 
AYADR: .WORD 
AY: .BYTE 



7 
4 
AY 



LENGTH OF OPERAND IN BYTES 
NUMBER OF SHIFTS 
ADDRESS OF OPERAND 



21H,4 3H,65H,87H,OA9H,0CBH,0EDH 



.END 



; PROGRAM 



String Compare (STRCMP) 



8A 



Compares two strings and sets the Carry 
and Zero flags appropriately. The Zero flag is 
set to 1 if the strings are identical and to 
otherwise. The Carry flag is set to if the 
string with the address higher in the stack 
(string 2) is larger than the other string 
(string 1); the Carry flag is set to 1 otherwise. 
The strings are a maximum of 255 bytes long 
and the actual characters are preceded by a 
byte containing the length. If the two strings 
are identical through the length of the 
shorter, then the longer string is considered 
to be larger. 

Procedure: The program first determines 
which string is shorter from the lengths 
which precede the actual characters. It then 
compares the strings one byte at a time 
through the length of the shorter. If the pro- 
gram finds corresponding bytes that are not 
the same through the length of the shorter, 
the program sets the flags by comparing the 
lengths. 



Registers Used: All 
Execution Time: 

1. If the strings are not identical through the 
length of the shorter, the approximate execution 
time is 

81 + 19* NUMBER OF CHARACTERS 
COMPARED. 

If, for example, the routine compares five charac- 
ters before finding a difference, the execution 
time is 

81 + 19 * 5 = 81 + 95 = 176 cycles. 

2. If the strings are identical through the 
length of the shorter, the approximate execution 
time is 

93 + 19 • LENGTH OF SHORTER STRING. 
If, for example, the shorter string is eight 
bytes long, the execution time is 

93 + 19 "8 = 93 + 152 = 245 cycles. 

Program Size: 52 bytes 

Data Memory Required: Four bytes on page 0, 
two bytes starting at address S1ADR (00D0 16 in 
the listing) for a pointer to string 1 and two bytes 
starting at address S2ADR (00D2, 6 in the listing) 
for a pointer to string 2. 



Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 

Less significant byte of starting address of 

string 2 
More significant byte of starting address of 

string 2 

Less significant byte of starting address of 

string 1 
More significant byte of starting address of 

string 1 



Exit Conditions 

Flags set as if string 2 had been subtracted 
from string 1 or, if the strings are equal 
through the length of the shorter, as if the 
length of string 2 had been subtracted from 
the length of string 1. 

Zero flag = 1 if the strings are identical, 
if they are not identical. 

Carry flag = if string 2 is larger than string 
1, 1 if they are identical or string 1 is larger. 
If the strings are the same through the 
length of the shorter, the longer one is con- 
sidered to be larger. 
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Examples 

1. Data: String 1 = 05'PRINT' (05 is the length of 

the string) 
String 2 = 03'END' (03 is the length of 
the string) 

Result: Zero flag = (strings are not identical) 
Carry flag = 1 (string 2 is not larger than 
string 1) 

2. Data: String 1 = 05'PRINT' (05 is the length of 

the string) 
String 2 = 02'PR' (02 is the length of the 
string) 

Result: Zero flag = (strings are not identical) 
Carry flag = 1 (string 2 is not larger than 
string 1) 

The longer string (string 1) is considered 
to be larger. If you want to determine 
whether string 2 is an abbreviation of string 
1, you could use Subroutine 8C (FIND THE 
POSITION OF A SUBSTRING) and deter- 
mine whether string 2 was part of string 1 and 
started at the first character. 



3. Data: String 1 = 05'PRINT' (05 is the length of 
the string) 
String 2 = 06'SYSTEM' (06 is the length 
of the string) 

Result: Zero flag = (strings are not identical) 
Carry flag = (string 2 is larger than 
string l) 

We are assuming here that the strings con- 
sist of ASCII characters. Note that the byte 
preceding the actual characters contains a 
hexadecimal number (the length of the 
string), not a character. We have represented 
this byte as two hexadecimal digits in front of 
the string; the string itself is surrounded by 
single quotation marks. 

Note also that this particular routine treats 
spaces like any other characters. If for exam- 
ple, the strings are ASCII, the routine will 
find that SPRINGMAID is larger than 
SPRING MAID, since an ASCII M (4D 16 ) is 
larger than an ASCII space (20 16 ). 



Title 
Name: 



String compare 
STRCMP 



Purpose: 
Entry: 



Exit: 



Compare 2 strings and return C and Z flags set 
or cleared. 

TOP OF STACK 

Low byte of return address. 
High byte of return address, 
Low byte of string 2 address, 
High byte of string 2 address,. 
Low byte of string 1 address, 
High byte of string 1 address 

A string is a maximum of 255 bytes long plus 
a length byte which precedes it. 



IF string 1 
Z=1,C=1 



string 2 THEN 
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IF string 1 > string 2 THEN 

Z=0,C=1 
IF string 1 < string 2 THEN 

Z=0,C=0 



Registers used: All 



Time: 
Size: 



; EQUATES 
S1ADR .EQU 
S2ADR .EQU 



ODOH 
0D2H 



Worst case timing for strings which are equal. 
93 cycles maximum overhead plus (19 * length) 

Program 52 bytes 

Data 4 bytes in page zero 



;PAGE ZERO POINTER TO STRING 1 
;PAGE ZERO POINTER TO STRING 2 



STRCMP: 



J GET RETURN ADDRESS 

PLA 

TAY 

PLA 

TAX 

;GET THE STARTING ADDRESS OF STRING 2 

PLA 

STA S2ADR 

PLA 

STA S2ADR+1 

;GET THE STARTING ADDRESS OF STRING 1 

PLA 

STA Si ADR 

PLA 

STA S1ADR+1 

; RESTORE RETURN ADDRESS 

TXA 

PHA 

TYA 

PHA 



; DETERMINE WHICH STRING IS SHORTER 

LDY #0 

LDA (S1ADR),Y ;GET LENGTH OF STRING #1 

CMP (S2ADR),Y 

BCC BEGCMP ;IF STRING #2 IS SHORTER THEN 

LDA (S2ADR) ,Y ; USE ITS LENGTH INSTEAD 



; COMPARE THE STRINGS THROUGH THE LENGTH OF THE SHORTER STRING 
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BEGCMP: 



CMPLP: 



TAX 
BEQ 

LDY 

LDA 
CMP 
BNE 



INY 
DEX 
BNE 



TSTLEN 

#1 

(SlADR) ,Y 
(S2ADR) ,Y 
EXIT 



CMPLP 



;X IS THE LENGTH OF THE SHORTER STRING 
;BRANCH IF LENGTH IS ZERO 

; POINT AT FIRST CHARACTER OF STRINGS 



BRANCH IF CHARACTERS ARE NOT EQUAL 

Z,C WILL BE PROPERLY SET OR CLEARED 
ELSE 

NEXT CHARACTER 

DECREMENT COUNTER 

CONTINUE UNTIL ALL BYTES ARE COMPARED 



TSTLEN: 



THE 2 STRINGS ARE EQUAL TO THE LENGTH OF THE SHORTER 
SO USE THE LENGTHS AS THE BASIS FOR SETTING THE FLAGS 



LDY 
LDA 
CMP 



#0 

(SlADR) ,Y 
(S2ADR) ,Y 



; COMPARE LENGTHS 

;SET OR CLEAR THE FLAGS 



EXIT: 



;EXIT FROM STRING COMPARE 



RTS 



SAMPLE EXECUTION: 



SC0801: 








LDA 


SADRl+1 




PHA 






LDA 


SADRl 




PHA 






LDA 


SADR2+1 




PHA 






LDA 


SADR2 




PHA 






JSR 


STRCMP 




BRK 





JMP 



SC0801 



;PUSH STARTING ADDRESS OF STRING 1 



;PUSH STARTING ADDRESS OF STRING 2 



COMPARE 

RESULT OF COMPARING "STRING 1" AND "STRING 2" 

IS STRING 1 LESS THAN STRING 2 SO 

Z=0,C=0 
LOOP FOR ANOTHER TEST 



;TEST DATA, CHANGE TO TEST OTHER VALUES 

SADRl .WORD SI 

SADR2 .WORD S2 

Si .BYTE 20H, "STRING 1 

S2 .BYTE 20H, "STRING 2 



.END 



; PROGRAM 



String Concatenation (CONCAT) 



8B 



Combines (concatenates) two strings, 
placing the second immediately after the first 
in memory. If the concatenation would pro- 
duce a string longer than a specified max- 
imum, the program concatenates only 
enough of string 2 to give the combined 
string its maximum length. The Carry flag is 
cleared if all of string 2 can be concatenated 
and set to 1 if part of string 2 must be drop- 
ped. Both strings are a maximum of 255 bytes 
long and the actual characters are preceded 
by a byte containing the length. 

Procedure: The program uses the length of 



string 1 to determine where to start adding 
characters and the length of string 2 to deter- 
mine how many characters to add. If the sum 
of the lengths exceeds the maximum, the 
program indicates an overflow and reduces 
the number of characters it must add (the 
number is the maximum length minus the 
length of string 1). It then moves the 
appropriate number of characters from string 
2 to the end of string 1, updates the length of 
string 1, and sets the Carry flag to indicate 
whether any characters had to be discarded. 



Registers Used: All 

Execution Time: Approximately 40 * NUMBER 
OF CHARACTERS CONCATENATED plus 
164 cycles overhead. The NUMBER OF 
CHARACTERS CONCATENATED is normally 
the length of string 2, but will be the maximum 
length of string 1 minus its current length if the 
combined string would be longer than the max- 
imum. If, for example, NUMBER OF CHARAC- 
TERS CONCATENATED is 14 16 (20 10 ), the 
execution time is 

40 * 20 + 161 = 800 + 164 = 964 cycles. 

Program Size: 141 bytes 

Data Memory Required: Seven bytes anywhere 
in RAM plus four bytes on page 0. The seven 
bytes anywhere in RAM are temporary storage 
for the maximum length of string 1 (1 byte at 
address MAXLEN), the length of string 1 (1 byte 
at address S1LEN), the length of string 2 (1 byte 
at address S2LEN), a running index for string 1 
(1 byte at address S1IDX), a running index for 



string 2 (1 byte at address S2IDX), a concatena- 
tion counter (1 byte at address COUNT), and a 
flag that indicates whether the combined strings 
overflowed (1 byte at address STRGOV). The 
four bytes on page hold pointers to string 1 (two 
bytes starting at address SI ADR, address 00D0 16 
in the listing) and to string 2 (two bytes starting at 
address SI ADR, address 00D0, 6 in the listing). 

Special Cases: 

1. If the concatenation would result in a string 
longer than the specified maximum length, the 
program concatenates only enough of string 2 to 
reach the maximum. If any of string 2 must be 
truncated, the Carry flag is set to 1. 

2. If string 2 has a length of zero, the program 
exits with the Carry flag cleared (no errors) and 
string 1 unchanged. That is, a length of zero for 
either string is interpreted as zero, not 256. 

3. If the.original length of string 1 exceeds the 
specified maximum length, the program exits 
with the Carry flag set to 1 (indicating an error) 
and string 1 unchanged. 
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Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 

Maximum length of string 1 

Less significant byte of starting address of 

string 2 
More significant byte of starting address of 

string 2 
Less significant byte of starting address of 

string 1 
More significant byte of starting address of 

string 1 



Exit Conditions 

String 2 concatenated at the end of string 1 
and the length of string 1 increased 
appropriately. If the resulting string would 
exceed the maximum length, only the part of 
string 2 that would give string 1 its maximum 
length is concatenated. If any part of string 2 
must be dropped, the Carry flag is set to 1. 
Otherwise, the Carry flag is cleared. 



Examples 



1. Data: Maximum length of string 1 = 0E 16 = 14 10 2. Data: 
String 1 = 07'JOHNSON' (07 is the 

length of the string) 
String 2 = 05', DON' (05 is the length of 

the string) 

Result: String 1 = OC'JOHNSON, DON' Result: 

(0C 16 = 12 10 is the length of the 
combined string with string 2 
placed after string 1). 
Carry = 0, since the concatenation did not 
produce a string exceeding the 
maximum length. 



Maximum length of string 1 = 0E, 6 = 14, 
String 1 = 07'JOHNSON' (07 is the 

length of the string) 
String 2 = 09', RICHARD' (09 is the 

length of the string) 

String 1 = 0E' JOHNSON, RICHA' 

(0E 16 = 14 10 is the maximum 
length allowed, so the last two 
characters of string 2 have been 
dropped.) 

Carry = 1, since the concatenation 

produced a string longer than the 
maximum length. 



Note that we are representing the initial byte (containing the length of the string) as two 
hexadecimal digits in both examples. 
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Title 
Name: 



String Concatenation 
CONCAT 



Purpose: 
Entry: 



Exit: 



Time: 
Size: 



; EQUATES 
SlADR . EQU 
S2ADR .EQU 



ODOH 
0D2H 



CONCAT: 



Concatenate 2 strings into one string. 

TOP OF STACK 

Low byte of return address. 
High byte of return address, 
Maximum length of string 1, 
Low byte of string 2 address, 
High byte of string 2 address, 
Low byte of string 1 address, 
High byte of string 1 address 

A string is a maximum of 255 bytes long plus 
a length byte which precedes it. 

string 1 := string 1 concatenated with string 2 
If no errors then 

CARRY := 
else 
begin 

CARRY := 1 

if the concatenation makes string 1 too 
long concatenate only the part of string 2 
which will result in string 1 having its 
maximum length 

if length (stringl) > maximum length then 
no concatenation is done 
end; 



Registers used: All 



Approximately 40 * (length of string 2) cycles 
plus 161 cycles overhead 

Program 141 bytes 
Data 7 bytes plus 

4 bytes in page zero 



;PAGE ZERO POINTER TO STRING 1 
;PAGE ZERO POINTER TO STRING 2 



;GET RETURN ADDRESS 

PLA 

TAY 

PLA 

TAX 



;SAVE LOW BYTE 
;SAVE HIGH BYTE 
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;GET MAXIMUM LENGTH OF STRING 1 

PLA 

STA MAXLEN 

;GET THE STARTING ADDRESS OF STRING 2 

PLA 

STA S2ADR 

PLA 

STA S2ADR+1 

;GET THE STARTING ADDRESS OF STRING 1 

PLA 

STA S1ADR 

PLA 

STA SlADR+1 



; RESTORE RETURN ADDRESS 

TXA 

PHA 

TYA 

PHA 



; RESTORE HIGH BYTE 
; RESTORE LOW BYTE 



; DETERMINE WHERE TO START CONCATENATING 



LDY 
LDA 
STA 
STA 
INC 
LDA 
STA 
LDA 
STA 



#0 

(S1ADR) ,Y 

S1LEN 

S1IDX 

S1IDX 

(S2ADR) ,Y 

S2LEN 

#1 

S2IDX 



;GET CURRENT LENGTH OF STRING 1 

; START CONCATENATING AT THE END OF STRING 1 
;GET LENGTH OF STRING 2 

; START CONCATENATION AT BEGINNING OF STRING 2 



•DETERMINE THE NUMBER OF CHARACTERS TO CONCATENATE 
LDA S2LEN ;GET LENGTH OF STRING 2 



CLC 
ADC 
BCS 
CMP 
BEQ 
BCC 



S1LEN 

TOOLNG 

MAXLEN 

LENOK 

LENOK 



ADD TO CURRENT LENGTH OF STRING 1 
BRANCH IF LENGTH WILL EXCEED 255 BYTES 
CHECK AGAINST MAXIMUM LENGTH 
BRANCH IF LENGTH DOES NOT EXCEED MAXIMUM 



TOOLNG: 



RESULTING STRING WILL BE TOO LONG SO 
INDICATE A STRING OVERFLOW, STRGOV := OFFH 
SET NUMBER OF CHARACTERS TO CONCATENATE = MAXLEN 
SET LENGTH OF STRING 1 TO MAXIMUM LENGTH 



S1LEN 



LDA 
STA 
LDA 
SEC 
SBC 
BCC 



#0FFH 

STRGOV 

MAXLEN 

S1LEN 
EXIT . 



.•INDICATE OVERFLOW 



;EXIT IF MAXIMUM LENGTH < STRING 1 LENGTH 
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STA 


COUNT 


LDA 


MAXLEN 


STA 


S1LEN 


JMP 


DOCAT 



; (THE ORIGINAL STRING WAS TOO LONG ' ■ ) 
;SET COUNT TO SlLEN - MAXLEN 

;SET LENGTH OF STRING 1 TO MAXIMUM 
; PERFORM CONCATENATION 



LENOK: 



; RESULTING LENGTH DOES NOT EXCEED MAXIMUM 

; LENGTH OF STRING 1 = SlLEN + S2LEN 

; INDICATE NO OVERFLOW, STRGOV := 

; SET NUMBER OF CHARACTERS TO CONCATENATE TO LENGTH OF STRING 2 



STA SlLEN 

LDA #0 

STA STRGOV 

LDA S2LEN 

STA COUNT 



;SAVE THE SUM OF THE 2 LENGTHS 
; INDICATE NO OVERFLOW 
;COUNT := LENGTH OF STRING 2 



DOCAT: 



; CONCATENATE THE STRINGS 





LDA 


COUNT 




BEQ 


EXIT 


CATLF 


. 






LDY 


S2IDX 




LDA 


(S2ADR) ,Y 




LDY 


S1IDX 




STA 


(S1ADR) ,Y 




INC 


S1IDX 




INC 


S2IDX 




DEC 


COUNT 




BNE 


CATLP 


EXIT: 








LDA 


SlLEN 




LDY 


#0 




STA 


(S1ADR) ,Y 




LDA 


STRGOV 




ROR 


A 




RTS 




7 

; DATA 






MAXLEN: .BLOCK 


1 


SlLEN 


.BLOCK 


1 


S2LEN 


. BLOCK 


1 


S1IDX 


•BLOCK 


1 


S2IDX 


. BLOCK 


1 • 


COUNT 


.BLOCK 


1 


STRGO\ 


/: .BLOCK 


1 



;EXIT IF NO BYTES TO CONCATENATE 



;GET NEXT BYTE FROM STRING 2 

;MOVE IT TO END OF STRING 1 
.'INCREMENT STRING 1 INDEX 
; INCREMENT STRING 2 INDEX 
.•DECREMENT COUNTER 
; CONTINUE UNTIL COUNT = 



; UPDATE LENGTH OF STRING 1 



;GET OVERFLOW INDICATOR 

; CARRY = 1 IF OVERLOW, IF NOT 



; MAXIMUM LENGTH OF SI 
; LENGTH OF SI 
; LENGTH OF S2 
.-RUNNING INDEX INTO SI 
;RUNNING INDEX INTO S2 
; CONCATENATION COUNTER 
; STRING OVERFLOW FLAG 



SAMPLE EXECUTION: 
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SC0802: „ , 

LDA SADRl+1 ;PUSH ADDRESS OF STRING 1 

PHA 

LDA SADRl 

PHA „ „ 

LDA SADR2+1 ;PUSH ADDRESS OF STRING 2 

PHA 

LDA SADR2 

PHA 

LDA #2 OH ;PUSH MAXIMUM LENGTH OF STRING 1 

PHA 

JSR CONCAT CONCATENATE „ T „«,m M » M o« 

BRK ; RESULT OF CONCATENATING "LASTNAME" AND ", FIRSTNAME" 

; IS Si = 13H," LASTNAME, FIRSTNAME" 

JMP SC0802 ;LOOP FOR ANOTHER TEST 

•TEST DATA, CHANGE FOR OTHER VALUES „„„,„,, , 

SADRl WORD SI ; STARTING ADDRESS OF STRING 1 

SADR2 'WORD S2 ; STARTING ADDRESS OF STRING 2 

oi BYTE 8H ; LENGTH OF SI 

'.BYTE "LASTNAME " » 32 BYTE MAX LENGTH 

02 BYTE OBH ; LENGTH OF S2 

'.BYTE ", FIRSTNAME " J 32 BYTE MAX LENGTH 

. END ; PROGRAM 



Find the Position of a Substring (POS) 



8C 



Searches for the first occurrence of a 
substring within a string. Returns the index 
at which the substring starts if it is found and 
if it is not found. The string and the 
substring are both a maximum of 255 bytes 
long and the actual characters are preceded 
by a byte containing the length. Thus, if the 
substring is found, its starting index cannot 
be less than 1 or more than 255. 



Procedure: The program moves through 
the string searching for the substring until it 
either finds a match or the remaining part of 
the string is shorter than the substring and 
hence cannot possibly contain it. If the 
substring does not appear in the string, the 
program clears the accumulator; otherwise, 
the program places the starting index of the 
substring in the accumulator. 



Registers Used: All 

Execution Time: Data-dependent, but the over- 
head is 135 cycles, each successful match of one 
character takes 47 cycles, and each unsuccessful 
match of one character takes 50 cycles. The worst 
case occurs when the string and substring always 
match except for the last character in the 
substring, such as 

String = 'AAAAAAAAB' 

Substring = 'AAB' 
The execution time in that case is 

(STRING LENGTH - SUBSTRING 
LENGTH + 1) • (47 • (SUBSTRING 
LENGTH - 1) + 50) + 135 
If, for example, STRING LENGTH = 9 and 
SUBSTRING LENGTH = 3, the execution time 
is 

(9 - 3 + 1) ♦ (47 * (3 - 1) + 50) + 135 
= 7 * 144 + 135 = 1008 + 135 = 1143 
cycles. 

Program Size: 124 bytes 

Data Memory Required: Six bytes anywhere in 
RAM plus four bytes on page 0. The six bytes 
anywhere in RAM are temporary storage for the 
length of the string (one byte at address SLEN), 
the length of the substring (one byte at address 



SUBLEN), a running index into the string (one 
byte at address SIDX), a running index into the 
substring (one byte at address SUBIDX), a 
search counter (one byte at address COUNT), 
and an index into the string (one byte at address 
INDEX). The four bytes on page hold pointers 
to the substring (two bytes starting at address 
SUBSTG, 00D0, 6 in the listing) and to the string 
(two bytes starting at address STRING, 00D2 16 
in the listing). 
Special Cases: 

1. If either the string or the substring has a 
length of zero, the program exits with zero in the 
accumulator, indicating that it did not find the 
substring. 

2. If the substring is longer than the string, 
the program exits with zero in the accumulator, 
indicating that it did not find the substring. 

3. If the program returns an index of 1, the 
substring may be regarded as an abbreviation of 
the string. That is, the substring occurs in the 
string, starting at the first character. A typical 
example would be a string PRINT and a substring 
PR. 

4. If the substring occurs more than once in 
the string, the program will return only the index 
to the first occurrence (the occurrence with the 
lowest starting index). 
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Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 

Less significant byte of starting address of 

substring 
More significant byte of starting address of 

substring 
Less significant byte of starting address of 

string 
More significant byte of starting address of 

string 



Exit Conditions 

Accumulator contains index at which first 
occurrence of substring starts if it is found; 
accumulator contains zero if substring is not 
found. 



Examples 



1 Data- String = ID' ENTER SPEED IN MILES 

PER HOUR' (ID,, = 29 10 is the 
length of the string). 
Substring = 05'MILES' (05 is the length 
of the substring) 

Result: Accumulator contains 10, 6 (16, ), the 
index at which the substring 'MILES' 
starts. 

2 Data: String = lB'SALES FIGURES FOR 

JUNE 1981' (1B, 6 = 27, is the 
length of the string) 
Substring = 04'JUNE' (04 is the length of 
the substring) 

Result: Accumulator contains 13, 6 (19, ), the 
index at which the substring 'JUNE' 
starts. 



3. Data: String •= 10'LET Yl = XI + R7' (10 16 

= 16| is the length of the string) 
Substring = 02'R4' (02 is the length of 
the substring) 

Result: Accumulator contains 00, since the 
substring 'R4' does not appear in the 
string LET Yl = XI + R7. 

4. Data: String =07'RESTORE' (07 is the length 

of the string) 
Substring = 03'RES' (03 is the length of 
the substring) 

Result: Accumulator contains 01 , the index at 
which the substring "RES" starts. An 
index of 01 indicates that the substring 
could be an abbreviation of the string; 
such abbreviations are, for example, often 
used in interactive programs (such as 
BASIC interpreters) to save on typing and 
storage. 
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Title 
Name: 



Find the position of a substring in a strinq 
POS 



Purpose: 



Entry: 



Exit: 



Time: 



Search for the first occurrence of a substring 
within a string and return its starting index. 
If the substring is not found a is returned. 

TOP OF STACK 

Low byte of return address. 
High byte of return address, 
Low byte of substring address, 
High byte of substring address, 
Low byte of string address, 
High byte of string address 

A string is a maximum of 255 bytes long plus 
a length byte which precedes it. 

If the substring is found then 

Register A = its starting index 
else 

Register A = 



Registers used: All 



Size: 



Since the algorithm is so data dependent 
a simple formula is impossible but the 
following statements are true and a 
worst case is given below: 

135 cycles overhead. 

Each match of 1 character takes 47 cycles 

A mismatch takes 50 cycles. 

Worst case timing will be when the 
string and substring always match 
except for the last character of the 
substring. Such as: 

string = 'AAAAAAAAAB ' 

substring = 'AAB ' 
135 cycles overhead plus 
(length(string) - length (substring) + 1) * 

( ( (length(substring)-l) * 47) + 50) 

Program 124 bytes 
Data 6 bytes plus 

4 bytes in page zero 



; EQUATES 
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SUBSTG 
STRING 

POS: 



LEKOK: 



.EQU 
.EQU 



ODOH 
0D2H 



;GET RETURN ADDRESS 

PLA 

TAY 

PLA 

TAX 



;PAGE ZERO POINTER TO SUBSTRING 
;PAGE ZERO POINTER TO STRING 



;SAVE LOW BYTE 
;SAVE HIGH BYTE 



;GET THE STARTING ADDRESS OF SUBSTRING 

PLA 

STA SUBSTG 

PLA 

STA SUBSTG+1 

;GET THE STARTING ADDRESS OF STRING 

PLA 

STA STRING 

PLA 

STA STRING+1 



; RESTORE RETURN ADDRESS 

TXA 

PHA 

TYA 

PHA 



.•RESTORE HIGH BYTE 
; RESTORE LOW BYTE 



;SET UP TEMPORARY LENGTH AND INDEX BYTES 

LDY . #0 

LDA (STRING) ,Y ;GET LENGTH OF STRING 

BEQ NOTFND ;EXIT IF LENGTH OF STRING = 

STA SLEN 

LDA (SUBSTG), Y ;GET LENGTH OF SUBSTRING 

BEQ NOTFND ;EXIT IF LENGTH OF SUBSTRING = 

STA SUBLEN 

;IF THE SUBSTRING IS LONGER THAN THE STRING DECLARE THE 
; SUBSTRING NOT FOUND 



LDA 
CMP 
BEQ 
BCS 



SUBLEN 
SLEN 
LENOK 
NOTFND 



; START SEARCH, CONTINUE 



LDA 
STA 
LDA 
SEC 
SBC 
STA 
INC 



#1 

INDEX 

SLEN 

SUBLEN 

COUNT 

COUNT 



;CANNOT FIND SUBSTRING IF IT IS LONGER THAN 
; STRING 
UNTIL REMAINING STRING SHORTER THAN SUBSTRING 

START LOOKING AT FIRST CHARACTER OF STRING 
CONTINUE UNTIL REMAINING STRING TOO SHORT 
COUNT=STRING LENGTH - SUBSTRING LENGTH + 1 



; SEARCH FOR SUBSTRING IN STRING 



SLP1: 
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CMPLP: 



SLP2: 



FOUND: 



NOTFND: 



EXIT 



LDA INDEX 

STA SIDX ; START STRING INDEX AT INDEX 

LDA #1 

STA SUBIDX ;START SUBSTRING INDEX AT 1 

;LOOK FOR SUBSTRING BEGINNING AT INDEX 



;GET NEXT CHARACTER FROM STRING 

.-COMPARE TO NEXT CHARACTER IN SUBSTRING 
;BRANCH IF SUBSTRING IS NOT HERE 

;TEST IF WE ARE DONE 

; BRANCH IF ALL CHARACTERS WERE EQUAL 

;ELSE INCREMENT TO NEXT CHARACTER 

INCREMENT STRING INDEX 
;CONTINUE 



LDY 


SIDX 


LDA 


(STRING) ,Y 


LDY 


SUBIDX 


CMP 


(SUBSTG) ,Y 


BNE 


SLP2 


LDY 


SUBIDX 


CPY 


SUBLEN 


BEQ 


FOUND 


INY 




STY 


SUBIDX 


INC 


SIDX 


JMP 


CMPLP 



; ARRIVE HERE IF THE SUBSTRING IS NOT YET FOUND 



INC INDEX 

DEC COUNT 

BNE SLP1 

BEQ NOTFND 



LDA 
JMP 



LDA 



RTS 



INDEX 
EXIT 



#0 



; INCREMENT INDEX 
; DECREMENT COUNT 
; BRANCH IF NOT DONE 
;ELSE EXIT NOT FOUND 



; SUBSTRING FOUND, A = STARTING INDEX 



; SUBSTRING NOT FOUND, A = 



;DATA 






SLEN: 


.BLOCK 


1 


SUBLEN: 


.BLOCK 


1 


SIDX: 


.BLOCK 


1 


SUBIDX: 


.BLOCK 


1 


COUNT: 


. BLOCK 


1 


INDEX: 


.BLOCK 


1 



; LENGTH OF STRING 

; LENGTH OF SUBSTRING 

.-RUNNING INDEX INTO STRING 

.-RUNNING INDEX INTO SUBSTRING 

; SEARCH COUNTER 

; CURRENT INDEX INTO STRING 



SAMPLE EXECUTION: 



SC0803: 



LDA 



SADR+1 



;PUSH ADDRESS OF THE STRING 
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PHA 




LDA 


SADR 


PHA 




LDA 


SUBADR+1 


PHA 




LDA 


SUBADR 


PHA 




JSR 


POS 


BRK 





JMP 



SC0803 



;PUSH ADDRESS OF THE SUBSTRING 



;FIND POSITION OF SUBSTRING 

; RESULT OF SEARCHING "AAAAAAAAAB" 

; REGISTER A=8 

;LOOP FOR ANOTHER TEST 



FOR "AAB" IS 



;TEST DATA, CHANGE FOR OTHER VALUES 

SADR .WORD STG 

SUBADR .WORD SSTG 

STG .BYTE OAH ; LENGTH OF STRING 

.BYTE "AAAAAAAAAB " ;32 BYTE MAX LENGTH 

SSTG .BYTE 3H ; LENGTH OF SUBSTRING 

.BYTE "AAB " «*32 BYTE MAX LENGTH 



.END 



; PROGRAM 



Copy a Substring from a String (COPY) 



8D 



Copies a substring from a string, given a 
starting index and the number of bytes to 
copy. The strings are a maximum of 255 
bytes long and the actual characters are pre- 
ceded by a byte containing the length. If the 
starting index of the substring is zero (i.e., 
the substring would start in the length byte) 
or is beyond the end of the string, the 
substring is given a length of zero and the 
Carry flag is set to 1. If the substring would 
exceed its maximum length or would extend 
beyond the end of the string, then only the 
maximum number or the available number 
of characters (up to the end of the string) are 
placed in the substring, and the Carry flag is 
set to 1. If the substring can be formed as 
specified, the Carry flag is cleared. 



Procedure: The program exits immediately 
if the number of bytes to copy, the maximum 
length of the substring, or the starting index 
is zero. It also exits immediately if the start- 
ing index exceeds the length of the string. If 
none of these conditions holds, the program 
checks if the number of bytes to copy exceeds 
either the maximum length of the substring 
or the number of characters available in the 
string. If either one is exceeded, the program 
reduces the number of bytes to copy 
appropriately. It then copies the proper num- 
ber of bytes from the string to the substring. 
The program clears the Carry flag if the 
substring can be formed as specified and sets 
the Carry flag if it cannot. 



Registers Used: All 

Execution Time: Approximately 36 • NUMBER 
OF BYTES COPIES plus 200 cycles overhead. 
NUMBER OF BYTES COPIED is the number 
specified (if no problems occur) or the number 
available or the maximum length of the substring 
if the copying would go beyond the end of either 
the string or the substring. If, for example, 
NUMBER OF BYTES COPIED = 12, (0C 16 ), 
the execution time is 

36 * 12 + 200 = 432 +200 = 632 cycles. 
Program Size: 173 bytes. 

Data Memory Required: Six bytes anywhere in 
RAM plus four bytes on page 0. The six bytes 
anywhere in RAM hold the length of the string 
(one byte at address SLEN), the length of the 
substring (one byte at address DLEN), the max- 
imum length of the substring (one byte at address 
MAXLEN), the search counter (one byte at 
address COUNT), the current index into the 
string (one byte at address INDEX), and an error 
flag (one byte at address CPYERR). The four 
bytes on page hold pointers to the string (two 
bytes starting at address DSTRG, 00D0 I6 in the 
listing) and to the substring (two bytes starting at 
address SSTRG, 00D2, 6 in the listing). 



Special Cases: 

1. If the number of bytes to copy is zero, the 
program assigns the substring a length of zero 
and clears the Carry flag, indicating no error. 

2. If the maximum length of the substring is 
zero, the program assigns the substring a length 
of zero and sets the Carry flag to 1, indicating an 
error. 

3. If the starting index of the substring is zero, 
the program assigns the substring a length of zero 
and sets the Carry flag to 1, indicating an error. 

4. If the source string does not even reach the 
specified starting index, the program assigns the 
substring a length of zero and sets the Carry flag 
to 1, indicating an error. 

5. If the substring would extend beyond the 
end of the source string, the program places all 
the available characters in the substring and sets 
the Carry flag to 1, indicating an error. The 
available characters are the ones from the starting 
index to the end of the string. 

6. If the substring would exceed its specified 
maximum length, the program places only the 
specified maximum number of characters in the 
substring. It sets the Carry flag to 1, indicating an 
error. 
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Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 

Maximum length of substring (destination 
string) 

Less significant byte of starting address of 

substring (destination string) 
More significant byte of starting address of 

substring (destination string) 

Number of bytes to copy 
Starting index to copy from 

Less significant byte of starting address of 

string (source string) 
More significant byte of starting address of 

string (source string) 



Exit Conditions 

Substring contains characters copied from 
string. If the starting index is zero, the max- 
imum length of the substring is zero, or the 
starting index is beyond the length of the 
string, the substring will have a length of zero 
and the Carry flag will be set to 1. If the 
substring would extend beyond the end of 
the string or would exceed its specified max- 
imum length, only the available characters 
from the string (up to the maximum length 
of the substring) are copied into the 
substring; the Carry flag is set in this case 
also. If no problems occur in forming the 
substring, the Carry flag is cleared. 



Examples 



1. Data: String = 10'LET Yl = R7 + X4' 

(10 16 — 16 10 is the length of the string) 
Maximum length of substring = 2 
Number of bytes to copy = 2 
Starting index = 5 

Result: Substring = 02'YT (2 is the length of the 
substring) 
Carry = 0, since no problems occur in 
forming the substring 

2. Data: String = OE'8657 POWELL ST 

(0E, 6 = 14, is the length of the string) 
Maximum length of substring = 10 16 = 16 10 
Numberof bytestocopy =» 0D 16 = 1 3 10 
Starting index = 06 

Result: Substring = 09'POWELL ST' (09 is the 
length of the substring) 
Carry = 1, since there were not enough 
characters available in the string to 
provide the specified number of bytes 
to copy. 



Data: String = 16'9414HEGENBERGER 
DRIVE' (16 16 = 22,o is the length 
of the string) 

Maximum length of substring = 10 t6 
= 16,o 

Numberof bytes to copy = 11|6 = 1 7 10 

Starting index = 06 

Result: Substring = 10'HEGENBERGER DR1V 
(10 16 = 16, is the length of the 
substring) 
Carry = 1, since the number of bytes to 
copy exceeded the maximum length of 
the substring 
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Title 
Name: 



Copy a substring from a string 
Copy 



Purpose: 
Entry: 



Exit: 



Time: 



Size: 



Copy a substring from a string given a starting 
index and the number of bytes. 

TOP OF STACK 

Low byte of return address. 

High byte of return address, 

Maximum length of destination string. 

Low byte of destination string address, 

High byte of destination string address, 

Number of bytes to copy, 

Starting index to copy from, 

Low byte of source string address, 

High byte of source string address 

A string is a maximum of 255 bytes long plus 
a length byte which precedes it. 

Destination string := The substring from the 

string. 

if no errors then 

CARRY := 
else 
begin 

the following conditions cause an 
error and the CARRY flag = 1. 
if (index = 0) or (maxlen = 0) or 
(index > length (sstrg) then 
the destination string will have a zero 
length, 
if (index + count) > length (sstrg) ) then 
the destination string becomes everything 
from index to the end of source string. 
END; 



Registers used: All 



Approximately (36 * count) cycles plus 200 
cycles overhead. 

Program 173 bytes 
Data 6 bytes plus 

4 bytes in page zero 



; EQUATES 
DSTRG . EQU 
SSTRG . EQU 



0D0H 
0D2H 



;PAGE ZERO POINTER TO DESTINATION STRING 
;PAGE ZERO POINTER TO SOURCE STRING 
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COPY: 



;GET RETURN ADDRESS 

PLA 

T AY ;SAVE LOW BYTE 

PLA 

TAX ;SAVE HIGH BYTE 

;GET MAXIMUM LENGTH OF DESTINATION STRING 

PLA 

STA MAXLEN 

;GET STARTING ADDRESS OF DESTINATION STRING 

PLA 

STA DSTRG ;SAVE LOW BYTE 

PLA 

STA DSTRG+1 ;SAVE HIGH BYTE 

;GET NUMBER OF BYTES TO COPY 

PLA 

STA COUNT 

;GET STARTING INDEX OF SUBSTRING 

PLA 

STA INDEX 

;GET STARTING ADDRESS OF SOURCE STRING 

PLA 

STA SSTRG ;SAVE LOW BYTE (NOTE SSTRG=SOURCE STRING) 

PLA 

STA SSTRG+1 ;SAVE HIGH BYTE 

; RESTORE RETURN ADDRESS 

TXA 

p HA ; RESTORE HIGH BYTE 

TYA 

PHA ; RESTORE LOW BYTE 

INITIALIZE LENGTH OF DESTINATION STRING AND THE ERROR FLAG TO 

LDA #0 

STA DLEN ; LENGTH OF DESTINATION STRING IS ZERO 

STA CPYERR ;ASSUME NO ERRORS 

;CHECK FOR ZERO BYTES TO COPY OR ZERO MAXIMUM SUBSTRING LENGTH 

BEQ OKEXIT .-BRANCH IF ZERO BYTES TO COPY, NO ERROR 

; DSTRG WILL JUST HAVE ZERO LENGTH 

LDA MAXLEN 

BEQ EREXIT ;ERROR EXIT IF SUBSTRING HAS ZERO 

; MAXIMUM LENGTH. 

LDA INDEX „„„ 

BEQ EREXIT ;ERROR EXIT IF STARTING INDEX IS ZERO 

;CHECK IF THE SOURCE STRING REACHES THE STARTING INDEX 
;IF NOT, EXIT 
LDY #0 



8D COPY A SUBSTRING FROM A STRING (COPY) 365 



RECALC : 



CNTIOK: 



CNT20K: 



LDA (SSTRG),Y ;GET LENGTH OF SOURCE STRING 

STA SLEN ;SAVE SOURCE LENGTH 

CMP INDEX ; COMPARE TO STARTING INDEX 

BCC EREXIT ; ERROR EXIT IF INDEX IS TOO LARGE 

;CHECK THAT WE DO NOT COPY BEYOND THE END OF THE SOURCE STRING 

;IF INDEX + COUNT - 1 > LENGTH (SSTRG) THEN 

; COUNT := LENGTH (SSTRG) - INDEX + 1; 

LDA INDEX 

CLC 

ADC COUNT 

BCS RECALC 

TAX 

DEX 

CPX SLEN 

BCC CNTIOK 

BEQ CNTIOK 



;BRANCH IF INDEX + COUNT > 255 



; BRANCH IF INDEX + COUNT 
; BRANCH IF EQUAL 



1 < LENGTH (SSTRG) 



;THE CALLER ASKED FOR TOO MANY CHARACTERS JUST RETURN EVERYTHING 
; BETWEEN INDEX AND THE END OF THE SOURCE STRING. 
; SO SET COUNT := LENGTH (SSTRG) - INDEX + 1; 



LDA 
SEC 
SBC 
STA 
INC 
LDA 
STA 



SLEN 

INDEX 
COUNT 
COUNT 
#0FFH 
CPYERR 



;RECALCULATE COUNT 

;COUNT := LENGTH (SSTRG) - INDEX + 1 
; INDICATE A TRUNCATION OF THE COUNT 



CHECK IF THE COUNT IS LESS THAN OR EQUAL TO THE MAXIMUM LENGTH OF THE 
DESTINATION STRING. IF NOT, THEN SET COUNT TO THE MAXIMUM LENGTH 
IF COUNT > MAXLEN THEN 
COUNT := MAXLEN 



LDA 
CMP 
BCC 
BEQ 
LDA 
STA 
LDA 
STA 



COUNT 

MAXLEN 

CNT20K 

CNT20K 

MAXLEN 

COUNT 

#0FFH 

CPYERR 



;IS COUNT > MAXIMUM SUBSTRING LENGTH ? 

; BRANCH IF COUNT < MAX LENGTH 
; BRANCH IF COUNT = MAX LENGTH 



;ELSE COUNT := MAXLEN 

; INDICATE DESTINATION STRING OVERFLOW 
.-EVERYTHING IS SET UP SO MOVE THE SUBSTRING TO .DESTINATION STRING 



MVLP: 



LDX 
BEQ 
LDA 
STA 



LDY 
LDA 
LDY 
STA 



COUNT 
EREXIT 
#1 
DLEN 



INDEX 
(SSTRG) ,Y 
DLEN 
(DSTRG) ,Y. 



;REGISTER X WILL BE THE COUNTER 

; ERROR EXIT IF COUNT IS ZERO 

; START WITH FIRST CHARACTER OF DESTINATION 

;DLEN IS RUNNING INDEX FOR DESTINATION 

; INDEX IS RUNNING INDEX FOR SOURCE 

;GET NEXT SOURCE CHARACTER 

;MOVE NEXT CHARACTER TO DESTINATION 
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INC 


INDEX 


INC 


DLEN 


DEX 




BNE 


MVLP 


DEC 


DLEN 


LDA 


CPYERR 


BNE 


EREXIT 


;GOOD 


EXIT 


CLC 




BCC 


EXIT 


; ERROR 


EXIT 


EREXIT: 





INCREMENT SOURCE INDEX 

; INCREMENT DESTINATION INDEX 

{DECREMENT COUNTER 

,-CONTINUE UNTIL COUNTER = 

.-SUBSTRING LENGTH=FINAL DESTINATION INDEX - 1 

;CHECK FOR ANY ERRORS 

j BRANCH IF A TRUNCATION OR STRING OVERFLOW 



SEC 



; STORE LENGTH BYTE IN FRONT OF SUBSTRING 



EXIT: 



LDA 


DLEN 


LDY 


#0 


STA 


(DSTRG) ,Y 


RTS 




;DATA SECTION 




SLEN: .BLOCK 


1 


DLEN-: . BLOCK 


1 


MAXLEN: .BLOCK 


1 


COUNT: .BLOCK 


1 


INDEX: .BLOCK 


1 


CPYERR: .BLOCK 


1 



;SET LENGTH OF DESTINATION STRING 



LENGTH OF SOURCE STRING 

LENGTH OF DESTINATION STRING 

MAXIMUM LENGTH OF DESTINATION STRING 

SEARCH COUNTER 

CURRENT INDEX INTO STRING 

COPY ERROR FLAG 



SAMPLE EXECUTION: 



SC0804: 



LDA 


SADR+1 


PHA 




LDA 


SADR 


PHA 




LDA 


IDX 


PHA 




LDA 


CNT 


PHA 




LDA 


DADR+1 


PHA 




LDA 


DADR 


PHA 




LDA 


MXLEN 


PHA 




JSR 


COPY 



SADR+1 ;PUSH ADDRESS OF SOURCE STRING 

PUSH STARTING INDEX FOR COPYING 
PUSH NUMBER OF CHARACTERS TO COPY 
PUSH ADDRESS OF DESTINATION STRING 

;PUSH MAXIMUM LENGTH OF DESTINATION STRING 
;COPY 
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BRK 
JMP 



; RESULT OF COPYING 3 CHARACTERS STARTING AT INDEX 4 
;FROM THE STRING "12.345E+10 h IS 3,"345" 
SC0804 ;LOOP FOR MORE TESTING 



; DATA 

IDX 

CNT 

MXLEN 

SADR 

DADR 

SSTG 

DSTG 



SECTION 

• BYTE 

• BYTE 
.BYTE 
.WORD 

• WORD 
.BYTE 

• BYTE 
.BYTE 

• BYTE 

.END 



4 

3 

2 OH 

SSTG 

DSTG 

OAH 

"12.345E+10 





; PROGRAM 



; STARTING INDEX FOR COPYING 

; NUMBER OF CHARACTERS TO COPY 

; MAXIMUM LENGTH OF DESTINATION STRING 



; LENGTH OF STRING 

" ;32 BYTE MAX LENGTH 
; LENGTH OF SUBSTRING 

" ;32 BYTE MAX LENGTH 



Delete a Substring from a String (DELETE) 



8E 



Deletes a substring from a string, given a 
starting index and a length. The string is a 
maximum of 255 bytes long and the actual 
characters are preceded by a byte containing 
the length. The Carry flag is cleared if the 
deletion can be performed as specified. The 
Carry flag is set if the starting index is zero or 
beyond the length of the string; the string is 
left unchanged in either case. If the deletion 
extends beyond the end of the string, the 
Carry flag is set (to 1) and only the characters 
from the starting index to the end of the 
string are deleted. 

Procedure: The program exits immediately 



if the starting index or the number of bytes to 
delete is zero. It also exits if the starting index 
is beyond the length of the string. If none of 
these conditions holds, the program checks 
to see if the string extends beyond the area to 
be deleted. If it does not, the program simply 
truncates the string by setting the new length 
to the starting index minus 1. If it does, the 
program compacts the resulting string by 
moving the bytes above the deleted area 
down. The program then determines the new 
string's length and exits with the Carry 
cleared if the specified number of bytes were 
deleted and set to 1 if any errors occurred. 



Registers Used: All 
Execution Time: Approximately 

36 • NUMBER OF BYTES MOVED DOWN 

+ 165 
where NUMBER OF BYTES MOVED DOWN is 
zero if the string can be truncated and is STRING 
LENGTH - STARTING INDEX - NUMBER 
OF BYTES TO DELETE + 1 if the string must 
be compacted. 

Examples 

1. STRING LENGTH = 20 16 (32, ) 
STARTING INDEX = 19, 6 (25, ) 
NUMBER OF BYTES TO DELETE = 08 

Since there are exactly eight bytes left in the 
string starting at index 19, 6 , all the routine must 
do is truncate the string. This takes 

36 » + 165 = 165 cycles. 

2. STRING LENGTH = 40 16 (64 l0 ) 
STARTING LENGTH = I9, 6 (25 10 ) 
NUMBER OF BYTES TO DELETE = 08 

Since there are 20 l6 (32 16 ) bytes above the 
truncated area, the routine must move them 
down eight positions. The execution time is 

36 * 32 + 165 = 1152+ 165 = 1317cycles. 



Program Size: 139 bytes 

Data Memory Required: Five bytes anywhere in 
RAM plus two bytes on page 0. The five bytes 
anywhere in RAM hold the length of the string 
(one byte at address SLEN), the search counter 
(one byte at address COUNT), an index into the 
string (one byte at address INDEX), the source 
index for use during the move (one byte at 
address SIDX), and an error flag (one byte at 
address DELERR). The two bytes on page hold 
a pointer to the string (starting at address STRG, 
00D0 16 in the listing). 

Special Cases: 

1. If the number of bytes to delete is zero, the 
program exits with the Carry flag cleared (no 
errors) and the string unchanged. 

2. If the string does not even extend to the 
specified starting index, the program exits with 
the Carry flag set to 1 (error indicated) and the 
string unchanged. 

3. If the number of bytes to delete exceeds the 
number available, the program deletes all bytes 
from the starting index to the end of the string 
and exits with the Carry flag set to 1 (error indi- 
cated). 
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Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 

Number of bytes to delete 

Starting index to delete from 

Less significant byte of starting address of 

string 
More significant byte of starting address of 

string 



Exit Conditions 

Substring deleted from string. If no errors 
occur, the Carry flag is cleared. If the starting 
index is zero or beyond the length of the 
string, the Carry flag is set and the string is 
unchanged. If the number of bytes to delete 
would go beyond the end of the string, the 
Carry flag is set and the characters from the 
starting index to the end of the string are 
deleted. 



Examples 



1. Data: String = lE'SALES FOR MARCH AND 2. Data' 

APRIL 1980' (1E I6 = 30, is the 

length of the string) 
Number of bytes to delete = 0A 16 = 10 10 
Starting index to delete from = 10 16 ■= 

16 10 
Result: String = 14'SALES FOR MARCH 1980' Result: 

(14 16 = 20 10 is the length of the string 

with ten bytes deleted starting with the 

16th character — the deleted material is 

'AND APRIL'). 

Carry = 0, since no problems occurred in 
the deletion. 



String = 28THE PRICE IS $3.00 ($2.00 

BEFORE JUNE 1)' (28 l6 = 40, is the 

length of the string). 
Number of bytes to delete = 30 I6 = 48 I0 
Starting index to delete from = 13,^ 

= 19,o 
String = 12'THE PRICE IS $3.00' (12 16 

- 18, is the length of the string with all 

remaining bytes deleted). 
Carry = 1, since there were not as many 

bytes left in the string as were supposed 

to be deleted. 



Title 
Name: 



Purpose: 



Entry: 



Delete a substring from a string 
Delete 



Delete a substring from a string given a 
starting index and a length. 

TOP OF STACK 

Low byte of return address, 
High byte of return address. 
Number of bytes to delete (count) , 
Starting index to delete from (index). 
Low byte of string address. 
High byte of string address 
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Exit: 



A string is a maximum of 255 bytes long plus 
a length byte which precedes it. 

Substring deleted, 
if no errors then 

CARRY := 
else 
begin 

the following conditions cause an 

error with the CARRY flag = 1. 

if (index = 0) or (index > length (string) ) 

then do not change the string 
if count is too large then 

delete only the characters from 
index to the end of the string 
end; 



Registers used: All 



Time: 



Size: 



Approximately 36 * (LENGTH (STRG) -INDEX-COUNT+1) 
plus 165 cycles overhead. 

Program 139 bytes 
Data 5 bytes plus 

2 bytes in page zero 



; EQUATES 
STRG . EQU 



ODOH 



;PAGE ZERO POINTER TO SOURCE STRING 



DELETE: 

;GET RETURN ADDRESS 

PLA 
TAY 
PLA 
TAX 

;GET NUMBER OF BYTES TO DELETE 

PLA 

STA COUNT 

;GET STARTING INDEX DELETION 

PLA 

STA INDEX 



;SAVE LOW BYTE 
;SAVE HIGH BYTE 



;GET STARTING ADDRESS OF STRING 

PLA 

STA STRG ; SAVE LOW BYTE 

PLA 

STA STRG+1 ;SAVE HIGH BYTE 

; RESTORE RETURN ADDRESS 
TXA 
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TRUNC: 



PHA 
TYA 
PHA 



.•RESTORE HIGH BYTE 
; RESTORE LOW BYTE 



.•INITIALIZE ERROR INDICATOR (DELERR) TO 

.•GET STRING LENGTH 

LDY #0 

STY DELERR 

LDA (STRG),Y ;GET LENGTH OF STRING 

STA SLEN ;SAVE STRING LENGTH 

;CHECK FOR A NON ZERO COUNT AND INDEX 

LDA COUNT 

BEQ OKEXIT ,-GOOD EXIT IF NOTHING TO DELETE 



LDA 
BEQ 



INDEX 
EREXIT 



;ERROR EXIT IF STARTING INDEX = 



.•CHECK FOR STARTING INDEX WITHIN THE STRING 

; EXIT IF IT IS NOT 

LDA SLEN ;IS INDEX WITHIN THE STRING ? 

CMP INDEX 

BCC EREXIT ;NO, TAKE ERROR EXIT 

;BE SURE THE NUMBER OF CHARACTERS REQUESTED TO BE DELETED ARE PRESENT 
• IF NOT THEN ONLY DELETE FROM THE INDEX TO THE END OF THE STRING 



LDA 
CLC 
ADC 
BCS 
STA 
TAX 
DEX 
CPX 
BCC 

BEQ 

LDA 
STA 



INDEX 

COUNT 
TRUNC 
SIDX 



SLEN 
CNTOK 

TRUNC 

#0FFH 
DELERR 



.-TRUNCATE IF INDEX + COUNT > 255 

;SAVE INDEX + COUNT AS THE SOURCE INDEX 

;X = INDEX + COUNT 



.-BRANCH IF INDEX + COUNT - 1 < LENGTH (SSTRG) 
;ELSE JUST TRUNCATE THE STRING 
;TRUNCATE BUT NO ERROR (EXACTLY ENOUGH 
; CHARACTERS) 

; INDICATE ERROR - NOT ENOUGH CHARACTERS TO 
; DELETE 



; TRUNCATE THE STRING - NO COMPACTING NECESSARY 

INDEX ; STRING LENGTH = STARTING INDEX - 1 



LDX 

DEX 

STX SLEN 

LDA DELERR 

BEQ OKEXIT 

BNE EREXIT 



,-GOOD EXIT 
; ERROR EXIT 



CNTOK: 



; DELETE THE SUBSTRING BY COMPACTING 

; MOVE ALL CHARACTERS ABOVE THE DELETED AREA DOWN 

;CALCULATE NUMBER OF CHARACTERS TO MOVE (SLEN - SIDX + 1} 
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LDA 


SLEN 




SEC 






SBC 


SIDX 




TAX 






INX 






BEQ 


OKEXIT 


MVLP: 


LDY 


SIDX 




LDA 


(STRG) ,Y 




LDY 


INDEX 




STA 


(STRG) ,Y 




INC 


INDEX 




INC 


SIDX 




DEX 






BNE 


MVLP 




LDX 


INDEX 




DEX 






STX 


SLEN 




;GOOD EXIT 


OKEXIT: 


CLC 






BCC 


EXIT 




; ERROR 


EXIT 


EREXIT: 


SEC 




EXIT: 








LDA 


SLEN 




LDY 


#0 




STA 


(STRG) ,Y 




RTS 




;DATA 






SLEN: 


.BLOCK 


1 


COUNT: 


.BLOCK 


1 


INDEX: 


. BLOCK 


1 


SIDX: 


.BLOCK 


1 


DELERR 


. BLOCK 


1 



;GET STRING LENGTH 

; SUBTRACT STARTING INDEX 

;ADD 1 TO INCLUDE LAST CHARACTER 
; BRANCH IF COUNT = 



;GET NEXT CHARACTER 

MOVE IT DOWN 

INCREMENT DESTINATION INDEX 
INCREMENT SOURCE INDEX 
DECREMENT COUNTER 
CONTINUE UNTIL COUNTER = 

,-STRING LENGTH = FINAL DESTINATION INDEX - 1 



;SET LENGTH OF STRING 



LENGTH OF SOURCE STRING 
SEARCH COUNTER 
CURRENT INDEX INTO STRING 
SOURCE INDEX DURING MOVE 
DELETE ERROR FLAG 



SAMPLE EXECUTION: 



SC0805: 



LDA 
PHA 
LDA 
PHA 
LDA 



SADR+1 ;PUSH STRING ADDRESS 

SADR 

IDX ;PUSH STARTING INDEX FOR DELETION 
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PHA 
LDA 
PHA 
JSR 
BRK 

JMP 



CNT ;PUSH NUMBER OF CHARACTERS TO DELETE 

DELETE ; DELETE 

; RESULT OF DELETING 4 CHARACTERS STARTING AT INDEX 1 

; FROM "JOE HANDOVER" IS "HANDOVER" 
SC0805 ;LOOP FOR ANOTHER TEST 



;DATA SECTION 
IDX .BYTE 
CNT .BYTE 
SADR . WORD 
SSTG . BYTE 
.BYTE 



1 

4 

SSTG 

12 

"JOE HANDOVER" 



; INDEX TO START OF DELETION 

; NUMBER OF CHARACTERS TO DELETE 

;LENGTH OF STRING 



.END 



; PROGRAM 



Insert a Substring into a String (INSERT) 



8F 



Inserts a substring into a string, given a 
starting index. The string and substring are 
both a maximum of 255 bytes long and the 
actual characters are preceded by a byte con- 
taining the length. The Carry flag is cleared if 
the insertion can be accomplished with no 
problems. The Carry flag is set if the starting 
index is zero or beyond the length of the 
string. In the second case, the substring is 
concatenated to the end of the string. The 
Carry flag is also set if the string with the 
insertion would exceed a specified maximum 
length; in that case, the program inserts only 
enough of the substring to give the string its 
maximum length. 

Procedure: The program exits immediately 
if the starting index is zero or if the length of 
the substring is zero. If neither of these con- 
ditions holds, the program checks to see if 
the insertion would produce a string longer 



than the maximum. If it would, the program 
truncates the substring. The program then 
checks to see if the starting index is within 
the string. If it is not, the program simply 
concatenates the substring by moving it to 
the memory locations immediately after the 
end of the string. If the starting index is 
within the string, the program must first open 
a space for the insertion by moving the 
remaining characters up in memory. This 
move must start at the highest address to 
avoid writing over any data. Finally, the pro- 
gram can move the substring into the open 
area. The program then determines the new 
string length and exits with the Carry flag set 
appropriately (to if no problems occurred 
and to 1 if the starting index was zero, the 
substring had to be truncated, or the starting 
index was beyond the length of the string). 



Registers Used: All 

Execution Time: Approximately 36 * NUMBER 
OF BYTES MOVED + 36 * NUMBER OF 
BYTES INSERTED + 207 
NUMBER OF BYTES MOVED is the number of 
bytes that must be moved to open up space for 
the insertion. If the starting index is beyond the 
end of the string, this is zero since the substring is 
simply concatenated to the string. Otherwise, this 
is STRING LENGTH - STARTING INDEX + 
1, since the bytes at or above the starting index 
must be moved. 

NUMBER OF BYTES INSERTED is the length 
of the substring if no truncation occurs. It is the 
maximum length of the string minus its current 
length if inserting the substring would produce a 
string longer than the maximum. 



Examples 

1. STRING LENGTH = 20 16 (32 l0 ) 
STARTING INDEX = 19, 6 (25 10 ) 
MAXIMUM LENGTH = 30, 6 (48, ) 
SUBSTRING LENGTH = 06 

That is, we want to insert a substring six bytes 
long, starting at the 25th character. Since there 
are eight bytes that must be moved up (20, 6 — 
19 16 + 1 = NUMBER OF BYTES MOVED) and 
six bytes that must be inserted, the execution 
time is approximately 

36 • 8 + 36 • 6 + 207 = 288 + 216 + 207 
= 711 cycles. 

2. STRING LENGTH = 20, 6 (32 10 ) 
STARTING INDEX = 19, 6 (25 10 ) 
MAXIMUM LENGTH = 24 16 (36, ) 
SUBSTRING LENGTH = 06 
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As opposed to Example 1, here only four bytes 
of the substring can be inserted without exceed- 
ing the maximum length of the string. Thus 
NUMBER OF BYTES MOVED = 8 and NUM- 
BER OF BYTES INSERTED = 4. The execution 
time is approximately 

36 * 8 + 36 * 4 + 207 = 288 + 144 + 207 
= 639 cycles. 

Program Size: 212 bytes 

Data Memory Required: Seven bytes anywhere 
in RAM plus four bytes on page 0. The seven 
bytes anywhere in RAM hold the length of the 
string (one byte at address SLEN), the length of 
the substring (one byte at address SUBLEN), the 
maximum length of the string (one byte at 
address MAXLEN), the current index into the 
string (one byte at address INDEX), running 
indexes for use during the move (one byte at 
address SIDX and one byte at address DIDX), 
and an error flag (one byte at address INSERR). 
The four bytes on page hold pointers to the 
substring (two bytes starting at address SUBSTG, 
00D0 16 in the listing) and the string (two bytes 
starting at address STRG, 00D2 16 in the listing). 



Special Cases: 

1. If the length of the substring (the insertion) 
is zero, the program exits with the Carry flag 
cleared (no error) and the string unchanged. 

2. If the starting index for the insertion is zero 
(i.e., the insertion begins in the length byte), the 
program exits with the Garry flag set to 1 (indicat- 
ing an error) and the string unchanged. 

. 3. If the string with the substring inserted 
exceeds the specified maximum length, the pro- 
gram inserts only enough characters to reach the 
maximum length. The Carry flag is set to 1 to 
indicate that the insertion has been truncated. 

4. If the starting index of the insertion is 
beyond the end of the string, the program con- 
catenates the insertion, at the end of the string 
and indicates ah error by setting the Carry flag to 
1. 

5. If the original length of the string exceeds its 
specified maximum .length, ,the program exits 
with the Carry flag set to 1 (indicating an error) 
and the string unchanged. 



Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 

Less significant byte of starting address of 

substring 
More significant byte of starting address of 

substring 

Maximum length of string 

Starting index at which to insert the substring 

Less significant byte of starting address of 

string 
More significant byte of starting address of 

string 



Exit Conditions 

Substring inserted into string. If no errors 
occur, the Carry flag is cleared. If the starting 
index is zero or the length of the substring is 
zero, the Carry flag is set and the string is not 
changed. If the starting index is beyond the 
length of the string; the Carry flag is set and 
the substring is concatenated to the end of 
the string. If the string with the substring 
inserted would exceed the specified max- 
imum length, the Carry flag is set and only 
those characters from the substring which 
bring the string to maximum length are 
inserted. 
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Examples 

1. Data: String = OA'JOHN SMITH' (0A I6 = 10 l0 
is the length of the string) 
Substring = 08'WILLIAM ' (08 is the 
length of the substring) 
Maximum length of string = 14, 6 = 20, 
Starting index = 06 



2. Data: String = OA'JOHN SMITH 1 (0A 16 = 10, 
is the length of the string) 
Substring = OC'ROCKEFELLER ' (0C 16 

= 12i is the length of the substring) 
Maximum length of string = 14, 6 = 20 10 
Starting index = 06 



Result: String = 12'JOHN WILLIAM SMITH' 
(12, 6 = 18, 6 is the length of the string 
with the substring inserted). 
Carry = 0, since no problems occurred in 
the insertion. 



Result: String = 14'JOHN 

ROCKEFELLESMITH' (14 16 = 20 10 is 
the length of the string with as much of the 
substring inserted as the maximum length 
would allow) 
Carry = I, since some of the substring 
could not be inserted without exceeding 
the maximum length of the string. 



Title 
Name: 



Insert a substring into a string 
Insert 



Purpose: 
Entry: 



Exit: 



Insert a substring into a string given a 
starting index. 

TOP OF STACK 

Low byte of return address. 
High byte of return address. 
Low byte of substring address, 
High byte of substring address, 
Maximum length of (source) string, 
Starting index to insert the substring, 
Low byte of (source) string address, 
High byte of (source) string address 

A string is a maximum of 255 bytes long plus 
a length byte which precedes it. 

Substring inserted into string, 
if no errors then 

CARRY =0 
else 
begin 

the following conditions cause the 
CARRY flag to be set. 
if index = then 

do not insert the substring 
if length (strg) > maximum length then 
do not insert the substring 
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if index > length (strg) then 

concatenate substg onto the end of the 

source string 
if length(strg)+length(substring) > maxlen 

then insert only enough of the substring 

to reach maximum length 
end; 



Registers used: All 



Time: 



Size: 



Approximately 
36 * (LENGTH (STRG) - INDEX + 1) + 
36 * (LENGTH (SUBSTG) ) + 
207 cycles overhead. 

Program 214 bytes 
Data 7 bytes plus 

4 bytes in page zero 



; EQUATES 




SUBSTG .EQU 


0D0H 


STRG .EQU 


0D2H 


INSERT: 




;GET 


RETURN ADDRESS 


PLA 




TAY 




PLA 




TAX 





;PAGE ZERO POINTER TO SUBSTRING 
;PAGE ZERO POINTER TO STRING 



;SAVE LOW BYTE 
;SAVE HIGH BYTE 



;GET STARTING ADDRESS OF SUBSTRING 

PLA 

STA SUBSTG ;SAVE LOW BYTE 

PLA 

STA SUBSTG+1 ;SAVE HIGH BYTE 

;GET MAXIMUM LENGTH OF STRING 

PLA 

STA MAXLEN 

;GET STARTING INDEX for insertion 

PLA 

STA INDEX 



;GET STARTING ADDRESS OF SOURCE STRING 

PLA 

STA STRG ;SAVE LOW BYTE 

PLA 

STA STRG+1 ;SAVE HIGH BYTE 



; RESTORE RETURN ADDRESS 

TXA 

PHA 

TYA 



;RESTORE HIGH BYTE 
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IDXO: 



CHKLEN: 



TRUNC : 



IDXLEN: 



PHA 

; ASSUME NO ERRORS 
LDA #0 
STA INSERR 



; RESTORE LOW BYTE 



;ASSUME NO ERRORS WILL BE FOUND 



;GET SUBSTRING AND STRING LENGTHS 

; IF LENGTH (SUBSTG) = THEN EXIT BUT NO ERROR 

LDY #0 

LDA (STRG),Y 

STA SLEN ;GET LENGTH OF STRING 

LDA (SUBSTG ),Y 

STA SUBLEN ;GET LENGTH OF SUBSTRING 

BNE IDXO 

JMP OKEXIT ;EXIT IF NOTHING TO INSERT (NO ERROR) 

;IF STARTING INDEX IS ZERO THEN ERROR EXIT 



LDA 
BNE 
JMP 



INDEX 

CHKLEN 

EREXIT 



; BRANCH IF INDEX NOT EQUAL 
;ELSE ERROR EXIT 



CHECK THAT THE RESULTING STRING AFTER THE INSERTION FITS IN THE 
SOURCE STRING. IF NOT THEN TRUNCATE THE SUBSTRING AND SET THE 
TRUNCATION FLAG. 



LDA 
CLC 
ADC 
BCS 
CMP 
BCC 
BEQ 



SUBLEN 

SLEN 

TRUNC 

MAXLEN 

IDXLEN 

IDXLEN 



;GET SUBSTRING LENGTH 

;TRUNCATE SUBSTRING IF NEW LENGTH > 255 

; BRANCH IF NEW LENGTH < MAX LENGTH 
; BRANCH IF NEW LENGTH = MAX LENGTH 



.•SUBSTRING DOES NOT FIT, SO TRUNCATE IT 



LDA 

SEC 
SBC 
BCC 
BEQ 

STA 
LDA 
STA 



MAXLEN 



SLEN 

EREXIT 

EREXIT 

SUBLEN 

#0FFH 

INSERR 



; SUBSTRING LENGTH = MAXIMUM LENGTH - STRING 
; LENGTH 



ERROR EXIT IF MAXIMUM LENGTH < STRING LENGTH 
ERROR EXIT IF SUBSTRING LENGTH IS ZERO 
(THE ORIGINAL STRING WAS TOO LONG ! ! ) 



; INDICATE SUBSTRING WAS TRUNCATED 



;CHECK THAT INDEX IS WITHIN THE STRING. IF NOT CONCATENATE THE 
; SUBSTRING ONTO THE END OF THE STRING. 



LDA 
CMP 
BCS 
LDX 

INX 



SLEN 
INDEX 
LENOK 
SLEN 



GET STRING LENGTH 
COMPARE TO INDEX 

BRANCH IF STARTING INDEX IS WITHIN STRING 
ELSE JUST CONCATENATE (PLACE SUBSTRING AT 
END OF STRING) 
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STX 


INDEX 


LDA 


#0FFH 


STA 


INSERR 


LDA 


SLEN 


CLC 




ADC 


SUBLEN 


STA 


SLEN 


JMP 


MVESUB 



LENOK: 



; START RIGHT AFTER END OF STRING 

; INDICATE ERROR IN INSERT 

;ADD SUBSTRING LENGTH TO STRING LENGTH 



;JUST PERFORM MOVE, NOTHING TO OPEN UP 

;OPEN UP A SPACE IN SOURCE STRING FOR THE SUBSTRING BY MOVING THE 
; CHARACTERS FROM THE END OF THE SOURCE STRING DOWN TO INDEX, UP BY 
; THE SIZE OF THE SUBSTRING. 

; CALCULATE NUMBER OF CHARACTERS TO MOVE 

; COUNT : = STRING LENGTH - STARTING INDEX + 1 

LDA SLEN 

SEC 

SBC INDEX 

TAX 

INX ;X = NUMBER OF CHARACTERS TO MOVE 

;SET THE SOURCE INDEX AND CALCULATE THE DESTINATION INDEX 



OPNLP: 



LDA 
STA 
CLC 
ADC 
STA 
STA 



LDY 
LDA 
LDY 
STA 
DEC 
DEC 
DEX 
BNE 



SLEN 
SIDX 

SUBLEN 

DIDX 

SLEN 



SIDX 

(STRG) ,Y 
DIDX 

(STRG) ,Y 
SIDX 
DIDX 

OPNLP 



; SOURCE ENDS AT END OF ORIGINAL STRING 



DESTINATION ENDS FURTHER BY SUBSTRING LENGTH 
;SET THE NEW LENGTH TO THIS VALUE ALSO 



;GET NEXT CHARACTER 

;MOVE IT UP IN MEMORY 

; DECREMENT SOURCE INDEX 

; DECREMENT DESTINATION INDEX 

; DECREMENT COUNTER 

;CONTINUE UNTIL COUNTER = 



MVESUB: 



MVELP: 



;MOVE THE SUBSTRING INTO THE OPEN AREA 



LDA 
STA 

LDX 



#1 
SIDX 

SUBLEN 



LDY 


SIDX 


LDA 


(SUBSTG) ,Y 


LDY 


INDEX 


STA 


(STRG) ,Y 


INC 


SIDX 


INC 


INDEX 


DEX 




BNE 


MVELP 


LDA 


INSERR 



; START AT ONE IN THE SUBSTRING 

; START AT INDEX IN THE STRING 

;X = NUMBER OF CHARACTERS TO MOVE 



;GET NEXT CHARACTER 

; STORE CHARACTER 

; INCREMENT SUBSTRING INDEX 

INCREMENT STRING INDEX 

; DECREMENT COUNT 

;CONTINUE UNTIL COUNTER = 

;GET ERROR FLAG 
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BNE 


EREXIT 


OKEXIT: 


CLC 






BCC 


EXIT 


EREXIT: 


SEC 




EXIT: 








LDA ' 


SLEN 




LDY 


#0 




STA 


(STRG) ,Y 




RTS 




;DATA SECTION 




SLEN: 


.BLOCK 


1 


SUBLEN: 


•BLOCK 


1 


MAXLEN: 


.BLOCK 


1 


INDEX: 


.BLOCK 


1 


SIDX: 


.BLOCK 


1 


DIDX: 


. BLOCK 


1 


INSERR: 


.BLOCK 


1 



SAMPLE EXECUTION: 



; BRANCH IF SUBSTRING WAS TRUNCATED 



;NO ERROR 



; ERROR EXIT 



;SET'NEW LENGTH OF STRING 



LENGTH OF STRING 

LENGTH OF SUBSTRING 

MAXIMUM LENGTH OF STRING 

CURRENT INDEX INTO STRING 

A RUNNING INDEX 

A RUNNING INDEX 

FLAG USED TO INDICATE IF AN ERROR 



SC0806: 



LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
JSR 
BRK 

JMP 



SADR+1 ;PUSH ADDRESS OF SOURCE STRING 

SADR 

IDX ;PUSH STARTING INDEX FOR INSERTION 

MXLEN ;PUSH MAXIMUM LENGTH OF SOURCE STRING 

SUBADR+1 ;PUSH ADDRESS OF THE SUBSTRING 

SUBADR 

INSERT 



SC0806 



INSERT 

RESULT OF INSERTING "-" INTO "123456" AT 

INDEX 1 IS "-123456" 
LOOP FOR ANOTHER TEST 



;DATA SECTION 



IDX 


. . BYTE 


1 


MXLEN 


.BYTE 


2 OH 


SADR 


.WORD 


STG 


SUBADR 


.WORD 


SSTG 


STG 


.BYTE 


06H 



INDEX TO START INSERTION 
MAXIMUM LENGTH OF DESTINATION 
STARTING ADDRESS OF STRING 
STARTING ADDRESS OF SUBSTRING 
LENGTH OF STRING 



. END ; PROGRAM 
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.BYTE "123456 
SSTG .BYTE 1 
.BYTE "- 



" ;32 BYTE MAX LENGTH 
; LENGTH OF SUBSTRING 

" ;32 BYTE MAX LENGTH 



8-Bit Array Summation (ASUM8) 



9A 



Adds the elements of a byte-length array, 
producing a 16-bit sum. The size of the array 
is specified and is a maximum of 255 bytes. 

Procedure: The program clears both bytes 
of the sum initially. It then adds the elements 
successively to the less significant byte of the 
sum, starting with the element at the highest 
address. Whenever an addition produces a 
carry, the program increments the more sig- 
nificant byte of the sum. 



Registers Used: All 

Execution Time: Approximately 16 cycles per 
byte plus 39 cycles overhead. If, for example, (X) 
= 1A, 6 = 26, , the execution time is approx- 
imately 

16 » 26 + 39 = 416 + 39 = 455 cycles. 
Program Size: 30 bytes 

Data Memory Required: Two bytes on page to 
hold a pointer to the array (starting at address 
ARYADR, 00D0, 6 in the listing). 

Special Case: An array size of zero causes an 
immediate exit with the sum equal to zero. 



Entry Conditions 

(A) = More significant byte of starting 

address of array 
(Y) = Less significant byte of starting 

address of array 
(X) = Size of array in bytes 



Exit Conditions 

(A) = More significant byte of sum 
(Y) = Less significant byte of sum 



Example 



Data: 



Size of array (in bytes) = 


(X) 


- 08 


Result: 


Sum = 03D7, 6 = 983, 


Array elements 








(A) = more significant byte of sum 


F7, 6 = 247,o 
23|6 = 35,o 








= 03,6 








(Y) = less significant byte of sum = D7, 6 


31,6 = 49,0 










70, 6 =112,o 










5A, 6 = 90,o 










16 16 = 22,o 










CB, 6 = 203, 










El, 6 = 225, 
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Title 
Name: 



Purpose: 
Entry: 

Exit: 



Time: 



Size: 



8 BIT ARRAY SUMMATION 
ASUM8 



SUM the data of an array, yielding a 16 bit 
result. Maximum size is 255. 

Register A = High byte of starting array address 
Register Y = Low byte of starting array address 
Register X = Size of array in bytes 

Register A = High byte of sum 
Register Y = Low byte of sum 



Registers used: All 



Approximately 16 cycles per byte plus 
39 cycles overhead. 

Program 30 bytes 

Data 2 bytes in page zero 



; EQUATES SECTION 
ARYADR: . EQU 0D0H 



ASUM8: 



;PAGE ZERO POINTER TO ARRAY 



ASUM81: 



SUMLP: 



; STORE STARTING ADDRESS 
STY ARYADR 
STA ARYADR+1 

; DECREMENT STARTING ADDRESS BY 1 FOR EFFICIENT PROCESSING 

TYA ■■ ;GET LOW BYTE OF STARTING ADDRESS 

BNE ASUM81 ;IS LOW BYTE ZERO ? 

DEC ARYADR+1 ;YES, BORROW FROM HIGH BYTE 

DEC ARYADR ; ALWAYS DECREMENT LOW BYTE 

;EXIT IF LENGTH OF ARRAY IS ZERO 

TXA 

TAY 

BEQ EXIT 



.•INITIALIZATION 
LDA #0 
TAX 

; SUMMATION LOOP 



CLC 
ADC 
BCC 
INX 



(ARYADR) ,Y 
DECCNT 



EXIT IF LENGTH IS ZERO 
INITIALIZE SUM TO 



;ADD NEXT BYTE TO LSB OF SUM 

; INCREMENT MSB OF SUM IF A CARRY OCCURS 
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DECCNT: 



DEY 
BNE 



SUMLP 



; DECREMENT COUNT 

.-CONTINUE UNTIL REGISTER Y EQUALS 



EXIT: 



TAY 
TXA 
RTS 



.-REGISTER Y = LOW BYTE OF SUM 
;REGISTER A = HIGH BYTE OF SUM 



SAMPLE EXECUTION 



SC09U1: 



LDY 
LDA 
LDX 
JSR 
BRK 

JMP 



BUFADR 
BUFADR+1 
BUFSZ 
ASUM8 



SC0901 



;Y IS LOW BYTE OF BUFFER ADDRESS 
;A IS HIGH BYTE OF BUFFER ADDRESS 
;X IS SIZE OF BUFFER 

•SUM OF THE INITIAL TEST DATA IS 07F8 HEX, 
: REGISTER A = 07, REGISTER Y = F8H 



;TEST D 


ATA, CHfi 


NGE FC 


SIZE 


.EQU 


010H 


BUFADR: 


• WORD 


BUF 


BUFSZ: 


.BYTE 


SIZE 


BUF: 


.BYTE 


OUH 




.BYTE 


11H 




. BYTE 


22H 




.BYTE 


3 3H 




.BYTE 


44H 




.BYTE 


5 5H 




.BYTE 


66H 




.BYTE 


7 7H 




.BYTE 


88H 




.BYTE 


99H 




.BYTE 


OAAH 




.BYTE 


UBBH 




.BYTE 


OCCH 




.BYTE ■ 


ODDH 




.BYTE 


OEEH 




.BYTE 


OFFH 



;SIZE OF BUFFER 

;STARTING ADDRESS OF BUFFER 

;SIZE OF BUFFER 

;BUFFER 

;DECIMAL ELEMENTS ARE 0,17,34,51,68 

; 85,102,119,136,153,170,187,204 

; 221,238,255 



.END 



;SUM = 07F8 (2040 DECIMAL) 
; PROGRAM 



16-Bit Array Summation (ASUM16) 



9B 



Adds the elements of a word-length array, 
producing a 24-bit sum. The size of the array 
is specified and is a maximum of 255 16-bit 
words. The 16-bit elements are stored in the 
usual 6502 style with the less significant byte 
first. 

Procedure: The program clears a 24-bit 
accumulator in three bytes of memory and 
then adds the elements to the memory 
accumulator, starting at the lowest address. 
The most significant byte of the memory 
accumulator is incremented each time the 
addition of the more significant byte of an 
element and the middle byte of the sum pro- 
duces a carry. If the array occupies more than 
one page of memory, the program must 
increment the more significant byte- of the 



Registers Used: All 

Execution Time: Approximately 43 cycles per 
byte plus 46 cycles overhead. If, for example, (X) 
= 12, 6 = 18| , the execution time is approx- 
imately 

43 » 18 + 46 = 774 + 46 = 820 cycles. 

Program Size: 60 bytes 

Data Memory Required: Three bytes anywhere 
in RAM plus two bytes on page 0. The three bytes 
anywhere in RAM hold the memory accumulator 
(starting at address SUM); the two bytes on page 
hold a pointer to the array (starting at address 
ARYADR, 00D0 I6 in the listing). 

Special Case: An array size of causes an 
immediate exit with the sum equal to zero. 



array pointer before proceeding to the second 
page. 



Entry Conditions 

(A) = More significant byte of starting 
address of array 

(Y) = Less significant byte of starting 

address of array 
(X) = Size of array in 16-bit words 



Exit Conditions 

(X) = Most significant byte of sum 

(A) = Middle byte of sum 

(Y) = Least significant byte of sum 



Example 



Data: Size of array (in 16-bit words) = (X) = 08 
Array elements 

F7A1 I6 = 63,393 10 
239B I6 = 9,115 10 
31D5 I6 = 12,757 l0 
70F2 I6 = 28,914| 
5A36 I6 = 23,094,0 
166C, 6 = 5,740,o 
CBF5, 6 = 52,213 10 
E107, 6 - 57,607,0 



Result: Sum = 03DBA1 ]6 = 252,833, 

(X) = most significant byte of sum = 03 16 

(A) = middle byte of sum = DB 16 

(Y) = least significant byte of sum = Al, 6 
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Title 
Name: 



Purpose: 
Entry: 

Exit: 



16 BIT ARRAY SUMMATION 
ASUM16 



Sum the data of an array, yielding a 24 bit 
result. Maximum size is 255 16 bit elements. 

Register A = High byte of starting array address 
Register Y = Low byte of starting array address 
Register X = size of array in 16 bit elements 



Register X = High byte of sum 
Register A = Middle byte of sum 
Register Y = Low byte of sum 



Registers used: All 



Time: 



Size: 



Approximately 43 cycles per byte plus 
46 cycles overhead. 

Program 60 bytes 
Data 3 bytes plus 

2 bytes in page zero 



.•EQUATES SECTION 
ARYADR: . EQU 0D0H 



ASUM16: 



;PAGE ZERO POINTER TO ARRAY 



; STORE STARTING ADDRESS 
STY ARYADR 
STA ARYADR+1 

;ZERO SUM AND INITIALIZE INDEX 

LDA #0 

STA SUM «SUM = 

STA SUM+1 

STA SUM +2 

TA y ; INDEX = 

;EXIT IF THE ARRAY LENGTH IS ZERO 

TXA 

BEQ EXIT 



SUMLP: 



.•SUMMATION LOOP 

LDA SUM 

CLC 

ADC (ARYADR) ,Y 

STA SUM 



;ADD LOW BYTE OF ELEMENT TO SUM 
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LDA 


SUM+1 




INY 






ADC 


(ARYADR) ,Y 




STA 


SUM+1 




BCC 


NXTELM 




INC 


SUM +2 


NXTELM: 


INY 






BNE 


DECCNT 




INC 


ARYADR+1 


DECCNT: 


DEX 






BNE 


SUMLP 


EXIT: 








LDY 


SUM 




LDA 


SUM + 1 




LDX 


SUM +2 




RTS 




;DATA SECTION 




SUM: 


.BLOCK 


3 



; INCREMENT INDEX TO HIGH BYTE OF ELEMENT 
;ADD HIGH BYTE WITH CARRY TO SUM 
; STORE IN MIDDLE BYTE OF SUM 

; INCREMENT HIGH BYTE OF SUM IF A CARRY 

; INCREMENT INDEX TO NEXT ARRAY ELEMENT 

;MOVE POINTER TO SECOND PAGE OF ARRAY 

; DECREMENT COUNT 

CONTINUE UNTIL REGISTER X EQUALS 

;Y=LOW BYTE 
;A=MIDDLE BYTE 
;X=HIGH BYTE 



.-TEMPORARY 24 BIT ACCUMULATOR IN MEMORY 



SAMPLE EXECUTION 



SC0902: 



LDY 


BUFADR 


LDA 


BUFADR+1 


LDX 


BUFS2 


JSR 


ASUM16 


BRK 





OMP 



SC0902 



;A,Y = STARTING ADDRES OF BUFFER 

^•X = BUFFER SIZE IN WORDS 

,-RESULT OF THE INITIAL TEST DATA IS 12570 
; REGISTER X = 0, REGISTER A = 31H, 
; REGISTER Y = 1AH 
;LOOP FOR MORE TESTING 



SIZE 


.EQU 


010H 


BUFADR: 


.WORD 


BUF 


BUFSZ: 


.BYTE 


SIZE 


BUF: 


.WORD 







• WORD 


111 




.WORD 


222 




.WORD 


333 




.WORD 


444 




.WORD 


555 




.WORD 


666 




.WORD 


77 7 




.WORD 


888 




• WORD 


999 




. WORD 


1010 




• WORD 


1111 




.WORD 


1212 



;SIZE OF BUFFER IN WORDS 
; STARTING ADDRESS OF BUFFER 
;SIZE OF BUFFER IN WORDS 
; BUFFER 
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WORD 


1313 


WORD 


1414 


WORD 


1515 


END 


; PROGRAM 



;SUM = 12570 = 311AH 



Find Maximum Byte-Length Element (MAXELM) 



9C 



rinds the maximum element in an array 
of unsigned byte-length elements. The size of 
the array is specified and is a maximum of 
255 bytes. 

Procedure: The program exits immediately 
(setting Carry to 1) if the array size is zero. If 
the size is non-zero, the program assumes 



Registers Used: All 

Execution Time: Approximately 15 to 23 cycles 
per byte plus 52 cycles overhead. The extra eight 
cycles are used whenever the supposed max- 
imum and its index must be replaced by the cur- 
rent element and its index. If, on the average, 
that replacement occurs half the time, the execu- 
tion time is approximately 

38 . ARRAY SIZE/2 + 52 cycles. 

If, for example, ARRAY SIZE = 18 16 = 24, , 
the approximate execution time is 

38 » 12 + 52 = 456 + 52 = 508 cycles. 

Program Size: 45 bytes 



that the last byte of the array is the largest and 
then proceeds backward through the array, 
comparing the supposedly largest element to 
the current element and retaining the larger 
value and its index. Finally, the program 
clears the Carry to indicate a valid result. 



Entry Conditions 

(A) = More significant byte of starting 
address of array 

(Y) = Less significant byte of starting 

address of array 
(X) = Size of array in bytes 



Data Memory Required: One byte anywhere in 
RAM plus two bytes on page 0. The one byte any- 
where in RAM holds the index of the largest ele- 
ment (at address INDEX). The two bytes on page 
hold a pointer to the array (starting at address 
ARYADR, 00D0, 6 in the listing). 

Special Cases: 

1 . An array size of causes an immediate exit 
with the Carry flag set to 1 to indicate an invalid 
result. 

2. If more than one element has the largest 
unsigned value, the program returns with the 
smallest possible index. That is, the index desig- 
nates the occurrence of the maximum value 
closest to the starting address. 



Exit Conditions 

(A) = Largest unsigned element 
(Y) = Index to largest unsigned element 
Carry = if result is valid, 1 if size of array is 
and result is meaningless. 



Example 



Data: Size of array (in bytes) = (X) 



Array elements 

35, 6 = 53| 



08 



A6, 



166,, 



D2, 6 = 210 l0 



IB, 



27, , 



59, 6 — 89| 
7A 16 = 122 10 



CF„ 



207, 



Result: The largest unsigned element is element 
#2(D2 16 = 210 10 ) 
(A) = largest element (D2, 6 ) 
(Y) = index to largest element (02) 
Carry flag = 0, indicating that array size is 
non-zero and the result is valid 
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Title 
Name: 

Purpose: 
Entry: 

Exit: 



Find the maximum element in an array of unsigned 

bytes. 

MAXELM 



Given the starting address of an array and 

the size of the array, find the largest element 

Register A = High byte of starting address 
Register Y = Low byte of starting address 
Register X = Size of array in bytes 

If size of the array is not zero then 
CARRY FLAG = 

Register A = Largest element 
Register Y = Index to that element 
if there are duplicate values of the largest 
element, register Y will have the index 
nearest to the first array element 
else 

CARRY flag = 1 



Registers used: All 
Time: 



Size: 



;EQUATES 
ARYADR: . EQU 



ODOH 



Approximately 15 to 23 cycles per byte 
plus 52 cycles overhead. 

Program 45 bytes 
Data 1 byte plus 

2 bytes in page zero 



;PAGE ZERO FOR ARRAY POINTER 



MAXELM: 



MAX1: 



; STORE STARTING ARRAY ADDRESS 
STA ARYADR+1 
STY ARYADR 

; SUBTRACT 1 FROM STARTING ADDRESS TO INDEX FROM 1 TO SIZE 
TYA 

DEC ARYADR+1 ; BORROW FROM HIGH BYTE IF LOW BYTE = 
DEC ARYADR ;ALWAYS DECREMENT THE LOW BYTE 

;TEST FOR SIZE EQUAL TO ZERO AND INITIALIZE TEMPORARIES 
EREXIT 



TXA 

BEQ 
TAY 
LDA 
STY 



(ARYADR) ,Y 
INDEX 



ERROR EXIT IF SIZE IS ZERO 
REGISTER Y = SIZE AND INDEX 
GET LAST BYTE OF ARRAY 
SAVE ITS INDEX 



9C FIND MAXIMUM BYTE-LENGTH ELEMENT (MAXELM) 39 1 



MAXLP: 



DEY 
BEQ 



OKEXIT 



;EXIT IF ONLY ONE ELEMENT 



;WORK FROM THE END OF THE ARRAY TOWARDS THE BEGINNING COMPARING 
; AGAINST THE CURRENT MAXIMUM WHICH IS IN REGISTER A 



; REPLACE INDEX ONLY IF ELEMENT = MAXIMUM 
; BRANCH IF CURRENT MAXIMUM > ARY[YJ 
;ELSE ARY|Y] >= CURRENT MAXIMUM SO 
; NEW CURRENT MAXIMUM AND 
; NEW INDEX 

; DECREMENT TO NEXT ELEMENT 
; CONTINUE 



CMP 


(ARYADR) ,Y 


BEQ 


NEWIDX 


BCS 


NXTBYT 


LDA 


(ARYADR) ,Y 


NEWIDX: STY 


INDEX 


NXTBYT: 




DEY 




BNE 


MAXLP 



OKEXIT: 



EREXIT: 



;EXIT 

LDY 
DEY 
CLC 
RTS 



SEC 
RTS 



INDEX 



;DATA SECTION 
INDEX: .BLOCK 1 



;GET INDEX OF THE MAXIMUM ELEMENT 
.-NORMALIZE INDEX TO (0,SIZE-1) 
;NO ERRORS 



; ERROR, NO ELEMENTS IN THE ARRAY 



; INDEX OF LARGEST ELEMENT 



SAMPLE EXECUTION: 



SC0903: 





LDA 


AADR+1 




LDY 


AADR 




LDX 


#SZARY 




JSR 


MAXELM 




BRK 






JMP 


SC0903 


SZARY: 


.EQU 


10H 


AADR: 


.WORD 


ARY 


ARY: 


.BYTE 


8 




.BYTE 


7 




• BYTE 


6 




.BYTE 


5 



;A,Y = STARTING ADDRESS OF ARRAY 
;X = SIZE OF ARRAY 

; RESULT FOR THE INITIAL TEST DATA IS 

; A = FF HEX (MAXIMUM) , Y=08 (INDEX TO MAXIMUM) 

;LOOP FOR MORE TESTING 



;SIZE OF ARRAY 

; STARTING ADDRESS OF ARRAY 
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BYTE 


4 


BYTE 


3 


BYTE 


2 


BYTE 


1 


BYTE 


OFFH 


BYTE 


OFEH 


BYTE 


OFDH 


BYTE 


OFCH 


BYTE 


OFBH 


BYTE 


OFAH 


BYTE 


0F9H 


BYTE 


OFBH 


END 


; PROGRAM 



Find Minimum Byte-Length Element (MINELM) 



9D 



Finds the minimum element in an array 
of unsigned byte-length elements. The size of 
the array is specified and is a maximum of 
255 bytes. 

Procedure: The program exits im- 
mediately, setting Carry to 1, if the array size 
is zero. If the size is non-zero, the program 



assumes that the last byte of the array is the 
smallest and then proceeds backward through 
the array, comparing the supposedly smallest 
element to the current element and retaining 
the smaller value and its index. Finally, the 
program clears the Carry flag to indicate a 
valid result. 



Registers Used: All 

Execution Time: Approximately 15 to 23 cycles 
per byte plus 52 cycles overhead. The extra eight 
cycles are used whenever the supposed minimum 
and its index must be replaced by the current ele- 
ment and its index. If, on the average, that 
replacement occurs half the time, the execution 
time is approximately 

38 » ARRAY SIZE/2 + 52 cycles. 

If, for example, ARRAY SIZE = 14, 6 = 20, , 
the approximate execution time is 

38 » 10 + 52 = 380 + 52 = 432 cycles. 

Program Size: 45 bytes 



Data Memory Required: One byte anywhere in 
RAM plus two bytes on page 0. The one byte any- 
where in RAM holds the index of the smallest 
element (at address INDEX). The two bytes on 
page hold a pointer to the array (starting at 
address ARYADR, 00D0, 6 in the listing). 

Special Cases: 

1. An array size of causes an immediate exit 
with the Carry flag set to 1 to indicate an invalid 
result. 

2. If more than one element has the smallest 
unsigned value, the program returns with the 
smallest possible index. That is, the index desig- 
nates the occurrence of the minimum value 
closest to the starting address. 



Entry Conditions 



Exit Conditions 



(A) = More significant byte of starting 

address of array 
(Y) = Less significant byte of starting 

address of array 
(X) = Size of array in bytes 



(A) = Smallest unsigned element 
(Y) = Index to smallest unsigned element 
Carry = if result is valid, 1 if size of array 
is zero and result is meaningless. 



Example 



Data: Size of array (in bytes) = (X) = 08 



Array elements 

35| 6 = 53 1 
A6 16 = 166, 
D2 16 = 210 10 

1B,6 = 27 10 



44,, 



68, 



*16 — uo l0 

59| 6 = 89, 
7A, 6 = 122| 
CF I6 = 207 



o 



Result: The smallest unsigned element is element 
*3(1B, 6 = 27, ) 
(A) = smallest element (1B, 6 ) 
(Y) = index to smallest element (03) 
Carry flag = 0, indicating that array size is 
non-zero and the result is valid. % 
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Title 
Name: 

Purpose: 
Entry: 

Exit: 



Find the minimum element in an array of unsigned 

bytes. 

MINELM 



Given the STARTING ADDRESS and the size of an 
array, find the smallest element. 

Register A = High byte of starting address 
Register Y = Low byte of starting address 
Register X = Size of array in bytes 

If size of the array is not zero then 
CARRY FLAG = 

Register A = Smallest element 
Register X = Index to that element 
if there are duplicate values of the smallest 
element Register Y will have the index 
nearest to the first array element 
else 

CARRY flag = 1 



Registers used: All 



Time: 



Size: 



EQUATES 
ARYADR: . EQU 



ODOH 



Approximately 15 to 23 cycles per byte 
plus 52 cycles overhead. 

Program 45 bytes 
Data 1 bytes plus 

2 bytes in page zero 



;PAGE.ZERO POINTER TO ARRAY 



MINELM: 



MINI: 



; STORE STARTING ARRAY ADDRESS 
STA ARYADR+1 
STY ARYADR 

; DECREMENT ARRAY ADDRESS BY 1 TO INDEX FROM 1 TO SIZE 

TYA 

BNE MINI 

DEC ARYADR+1 ; BORROW FROM HIGH BYTE IF LOW BYTE 

DEC ARYADR ; ALWAYS DECREMENT THE LOW BYTE 

;TEST FOR SIZE EQUAL TO ZERO AND INITIALIZE TEMPORARIES 
EREXIT 



= 



TXA 
BEQ 
TAY 
LDA 
STY 



(ARYADR) ,Y 
INDEX 



ERROR EXIT IF SIZE IS ZERO 
REGISTER Y = SIZE AND INDEX 
GET LAST BYTE OF ARRAY 
SAVE ITS INDEX 
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DEY 
BEQ 



OKEXIT 



;EXIT IF ONLY ONE ELEMENT 



MINLP: 



;WORK FROM THE END OF THE ARRAY TOWARDS THE BEGINNING COMPARING 
; AGAINST THE CURRENT MINIMUM WHICH IS IN REGISTER A 



CMP 
BEQ 
BCC 

LDA 
NEWIDX: STY 
NXTBYT: 

DEY 
BNE 



(ARYADR) ,Y 
NEWIDX 
NXTBYT 

(ARYADR) ,Y 
INDEX 



MINLP 



.-REPLACE INDEX IF MINIMUM = ELEMENT 
; BRANCH IF CURRENT MINIMUM < ELEMENT 
;ELSE ELEMENT <= CURRENT MINIMUM 
; NEW CURRENT MINIMUM AND 
; NEW INDEX 

.•DECREMENT TO NEXT BYTE 



OKEXIT: 



EREXIT: 



;EXIT 

LDY 
DEY 
CLC 
RTS 



SEC 
RTS 



INDEX 



;GET INDEX OF THE MINIMUM ELEMENT 
.-NORMALIZE INDEX TO (O.SIZE-1) 
;NO ERRORS 



; ERROR, NO ELEMENTS IN THE ARRAY 



.-DATA SECTION 
INDEX: .BLOCK 



; INDEX OF SMALLEST ELEMENT 



SAMPLE EXECUTION: 



SC0904: 



LDA 


AADR+1 


LDY 


AADR 


LDX 


#SZARY 


JSR 


MINELM 


BRK 





JMP 



SC0904 



;A,Y = STARTING ADDRESS OF ARRAY 
;X = SIZE OF ARRAY 

; RESULT FOR THE INITIAL TEST DATA IS 

; A = 01H (MINIMUM) , Y=07 (INDEX TO MINIMUM) 

;LOOP FOR MORE TESTING 



SZARY: 
AADR: 

ARY: 



. EQU 
.WORD 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



10H 
ARY 

8 
7 
6 
5 
4 



,-SIZE OF ARRAY 

; STARTING ADDRESS OF ARRAY 



396 


ARRAY OPERATIONS 




.BYTE 


3 




.BYTE 


2 




.BYTE 


1 




.BYTE 


OFFH 




.BYTE 


OFEH 




.BYTE 


OFDH 




.BYTE 


OFCH 




.BYTE 


OFBH 




.BYTE 


OFAH 




.BYTE 


0F9H 




.BYTE 


0F8H 



, END ; PROGRAM 



Binary Search (BINSCH) 



9E 



Searches an array of unsigned byte-length 
elements for a particular value. The array is 
assumed to be ordered with the smallest 
element at the starting (lowest) address. 
Returns the index to the value and the Carry 
flag cleared if it finds the value; returns the 
Carry flag set to 1 if it does not find the value. 
The size of the array is specified and is a max- 
imum of 255 bytes. The approach used is a 
binary search in which the value is compared 
with the middle element in the remaining 
part of the array; if the two are not equal, the 
part of the array that cannot possibly contain 
the value (because of the ordering) is dis- 
carded and the process is repeated. 

Procedure: The program retains upper and 
lower bounds (indexes) that specify the part 
of the array still being searched. In each itera- 
tion, the new trial index is the average of the 
upper and lower bounds. The program com- 
pares the value and the element with the trial 
index; if the two are not equal, the program 
discards the part of the array that could not 
possibly contain the element. That is, if the 
value is larger than the element with the trial 
index, the part at or below the trial index is 
discarded. If the value is smaller than the ele- 
ment with the trial index, the part at or above 
the trial index is discarded. The program 
exits if it finds a match or if there are no ele- 
ments left to be searched (that is, if the part 
of the array being searched no longer con- 
tains anything). The program sets the Carry 
flag to 1 if it finds the value and to if it does 
not. 

In the case of Example 1 shown later 
(the value is 0D 16 ), the procedure works as 
follows: 

In the first iteration, the lower bound is 



Registers Used: All 

Execution Time: Approximately 52 cycles per 
iteration plus 80 cycles overhead. A binary search 
will require on the order of log 2 N iterations, 
where N is the size of the array (number of ele- 
ments). 

If, for example, N = 32, the binary search will 
require approximately lpg 2 32 iterations or 5 itera- 
tions. The execution time will then be approx- 
imately 

52 * 5 + 80 = 260 + 80 = 340 cycles. 

Program Size: 89 bytes 

Data Memory Required: Three bytes anywhere 
in RAM plus two bytes on page 0. The three bytes 
anywhere in RAM hold the value being searched 
for (one byte at address VALUE), the lower 
bound of the area being searched (one byte at 
address LBND), and the upper bound of the area 
being searched (one byte at address UBND). The 
two bytes on page hold a pointer to the array 
(starting at address ARYADR, 00D0, 6 in the list- 
ing). 

Special Case: A size or length of zero causes an 
immediate exit with the Carry flag set to 1. That 
is, the length is assumed to be zero and the value 
surely cannot be found. 



zero and the upper bound is the length of the 
array minus 1 (since we have started our 
indexing at zero). So we have 

LOWER BOUND = 

UPPER BOUND = LENGTH - 1 = 0F I6 = 15, 

GUESS = (UPPER BOUND + LOWER 

BOUND)/2 = 07 (the result is truncated) 
ARRAY(GUESS) = ARRAY (7) = 10 16 = 16 l0 

Since our value (0D 16 ) is less than 
ARRAY(7), there is no use looking at the 
elements with indexes of 7 or more, so we 
have 

LOWER BOUND = 

UPPER BOUND = GUESS - 1 = 06 
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GUESS = (UPPER BOUND + LOWER 

BOUNDV2 = 03 
ARRAY(GUESS) = ARRAYO) = 07 

Since our value (0D 16 ) is greater than 
ARRAY (3), there is no use looking at the 
elements with indexes of 3 or less, so we 
have 

LOWER BOUND = GUESS + 1 = 04 

UPPER BOUND = 06 

GUESS = (UPPER BOUND + LOWER 
BOUNDV2 - 05 

ARRAY (GUESS) = ARRAY(5) - 09 

Since our value (0D 16 ) is greater than 
ARRAY (5), there is no use looking at the 



elements with indexes of 5 or less, so we 
have 

LOWER BOUND = GUESS + 1 = 06 
UPPER BOUND = 06 
GUESS = (UPPER BOUND + LOWER 
BQUND)/2 = 06 

ARRAY(GUESS) = ARRAY(6) = 0D 16 

Since our value (0D 16 ) is equal to 
ARRAY(6), we have found the element. If, 
on the other hand, our value were 0E I6 , the 
new lower bound would be 07 and there 
would no longer be any elements in the part 
of the array left to be searched. 



Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 

Value to find 

Size of the array (in bytes) 

Less significant byte of starting address of 
array (address of smallest unsigned ele- 
ment) 

More significant byte of starting address of 
array (address of smallest unsigned ele- 
ment) 



Exit Conditions 

Carry = if the value is found, Carry = 1 
if it is not found. If the value is found, 
(A) = index to the value in the array. 



Examples 

Length of array = 10 16 = 16 10 

Elements of array are 01 16 , 02 16 , 05, 6 , 07 16 , 09 16 , 09 16 , 

0D l6 , 10 16 , 2E, 6 , 37 16 , 5D 16 , 7E 16 , Al l6 , B4, 6 , D7 16 , E0 16 

1. Data: Value to find = 0D, 6 
Result: Carry = 0, indicating value found 

(A) = 06, the index of the value in the 
array 



2. Data: Value to find = 9B 16 

Result: Carry = 1, indicating value not found 
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Title 
Name: 



Purpose: 



Entry: 



Exit: 



Time: 



Size: 



Binary Search 
BINSCH 



Search an ordered array of unsigned bytes, 
with a maximum size of 255 elements. 

TOP OF STACK 

Low byte of return address, 

High byte of return address, 

Value to find, 

Length (size) of array, 

Low^byte of starting array address, 

High byte of starting array address 

If the value is found then 

CARRY flag = 

Register A = index to the value in the array 
ELSE 

CARRY flag = 1 



Registers used: All 



Approximately 52 cycles for each time through 
the search loop plus 80 cycles overhead. 
A binary search will take on the order of log 
base 2 of N searches, where N is the number of 
elements in the array. 

Program 89 bytes 
Data 3 bytes plus 

2 bytes in page zero 



; EQUATES SECTION 
ARYADR: . EQO 0D0H 



;PAGE ZERO POINTER TO ARRAY 



BINSCH: 



;GET RETURN ADDRESS 

PLA 

TAY 

PLA 

TAX 

;GET THE VALUE TO SEARCH FOR 

PLA 

STA VALUE 



;GET THE LENGTH OF THE ARRAY 

PLA 

STA UBND 
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;GET THE STARTING ADDRESS OF ARRAY 

PLA 

STA ARYADR 

PLA 

STA ARYADR+1 

; RESTORE THE RETURN ADDRESS 

TXA 

PHA 

TYA 

PHA 



NXTBYT: 



TSTLB: 



; CHECK THAT LENGTH IS NOT ZERO 

LDX UBND ,'GET LENGTH 

BEQ NOTFND ;EXIT NOT FOUND IF LENGTH EQUALS ZERO 

;SET UPPER AND LOWER SEARCH BOUNDS 

DEX 

STX UBND ; UPPER BOUND EQUALS LENGTH MINUS 1 

LDA #0 

STA LBND ; LOWER BOUND EQUALS 

^FARCH LOOP 

COMPUTE NEXT INDEX TO BE HALF WAY BETWEEN UPPER BOUND AND 
LOWER BOUND 



LDA 
CLC 
ADC 
ROR 

TAY 



UBND 

LBND 
A 



ADD LOWER AND UPPER BOUNDS 
DIVIDE BY 2, TRUNCATING FRACTION 
REGISTER Y BECOMES INDEX 



;IF INDEX IS GREATER THAN UPPER BOUND THEN THE ELEMENT IS NOT HERE 

CPY UBND 

BEO TSTLB .-BRANCH IF INDEX EQUALS UPPER BOUND 

BCS NOTFND ;BRANCH IF INDEX IS GREATER THAN UPPER BOUND 

;IF INDEX IS LESS THAN LOWER BOUND THEN THE ELEMENT IS NOT HERE 



CPY 
BCC 



LBND 
NOTFND 



;BRANCH IF INDEX IS LESS THAN LOWER BOUND 



;TEST IF WE HAVE FOUND THE ELEMENT 
LDA VALUE 

BCC SMALL ' .-BRANCH IF VALUE IS SMALLER THAN ARYADR IY] 
BEQ FND ; BRANCH IF FOUND 

; VALUE IS LARGER THAN ARYADR [Y] SO SET LOWER BOUND TO BE 

; Y + 1 (VALUE CAN ONLY BE FURTHER UP) 

INY 

crpv LBND 

NXTBYT ;CONTINUE SEARCHING IF LOWER BOUND DOES NOT 

; OVERFLOW 
N0TFND ;BRANCH IF LOWER BOUND OVERFLOWED FROM OFFH 

: TO 



BNE 
BEQ 
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SMALL: 



;VALUE IS SMALLER THAN ARYADR[Y] SO SET UPPER BOUND TO BE 
; Y - 1 (VALUE CAN ONLY BE FURTHER DOWN) 



.-CONTINUE SEARCHING IF UPPER BOUND DOES NOT 

; UNDERFLOW 

; BRANCH IF INDEX UNDERFLOWED 



; INDICATE VALUE FOUND 

;GET INDEX OF VALUE TO REGISTER A 



; INDICATE VALUE NOT FOUND 



; VALUE TO FIND 

; INDEX OF LOWER BOUND 

; INDEX OF UPPER BOUND 





DEY 






STY 


UBND 




CPY 


#OFFH 




BNE 


NXTBYT 




BEQ 


NOTFND 




; FOUND 


THE VALUE 


FND: 


CLC 
TYA 
RTS 






;DID NOT FIND TH 


NOTFND 


SEC 
RTS 




;DATA SECTION 




VALUE 


. BLOCK 


1 


LBND 


.BLOCK 


1 


UBND 


.BLOCK 


1 



SAMPLE EXECUTION 



SC0905: 



; SEARCH FOR A VALUE WHICH IS IN THE ARRAY 
LDA BFADR+1 



PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
JSR 
BRK 



BFADR 
BFSZ 
#7 
BINSCH 



;PUSH HIGH BYTE OF STARTING ADDRESS 

;PUSH LOW BYTE OF STARTING ADDRESS 

;PUSH LENGTH (SIZE OF ARRAY) 

;PUSH VALUE TO FIND 
; SEARCH 

;CARRY FLAG SHOULD BE AND REGISTER A = 4 



,-SEARCH FOR A VALUE WHICH IS NOT IN THE ARRAY 
LDA BFADR+1 

PHA ;PUSH HIGH BYTE OF STARTING ADDRESS 

LDA BFADR 

PHA ;PUSH LOW BYTE OF STARTING ADDRESS 

LDA BFSZ 

PHA ;PUSH LENGTH (SIZE OF ARRAY) 

LDA #0 

PHA ;PUSH VALUE TO FIND 
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JSR 


BINSCH 




BRK 






JMP 


SC0905 


;DATA 






SIZE 


.EQU 


010H 


BFADR: 


.WORD 


BF 


BFSZ: 


.BYTE 


SIZE 


BF: 








.BYTE 


1 




.BYTE 


2 




.BYTE 


4 




.BYTE 


5 




.BYTE 


7 




.BYTE 


9 




.BYTE 


10 




.BYTE 


11 




.BYTE 


23 




.BYTE 


50 




.BYTE 


81 




.BYTE 


123 




.BYTE 


191 




.BYTE 


199 




.BYTE 


250 




.BYTE 


255 




.END 


; PROGRAM 



; SEARCH 

;CARRY FLAG SHOULD BE 1 

•LOOP FOR MORE TESTS 



SIZE OF BUFFER 

STARTING ADDRESS OF BUFFER 

SIZE OF BUFFER 

BUFFER 



Bubble Sort (BUBSRT) 



9F 



Arranges an array of unsigned byte- 
length elements into ascending order using a 
bubble sort algorithm. An iteration of this 
algorithm moves the largest remaining ele- 
ment to the top by comparisons with all other 
elements, performing interchanges if necess- 
ary along the way. The algorithm continues 
until it has either worked its way through all 
elements or has completed an iteration with- 
out interchanging anything. The size of the 
array is specified and is a maximum of 255 
bytes. 

Procedure: The program starts by consider- 
ing the entire array. It examines pairs of ele- 
ments, interchanging them if they are out of 
order and setting a flag to indicate that the 
interchange occurred. At the end of an itera- 
tion, the program checks the interchange flag 
to see if the array is already in order. If it is 
not, the program performs another iteration, 
reducing the number of elements examined 
by one since the largest remaining element 
has been bubbled to the top. The program 
exits immediately if the length of the array is 
less than two, since no ordering is then 



Registers Used: All 
Execution Time: Approximately 

34 • N « N + 25 • N + 70 
cycles, where N is the size (length) of the array in 
bytes. If, for example, N is 20 l6 (32 l0 ), the execu- 
tion time is approximately 

34 » 32 » 32 + 25 * 32 + 70 = 34 * 1024 + 870 

= 34,816 + 870 = 35,686 cycles. 

Program Size: 79 bytes 

Data Memory Required: Two bytes anywhere in 
RAM plus four bytes on page 0. The two bytes 
anywhere in RAM hold the length of the array 
(one byte at address LEN) and the interchange 
flag (one byte at address XCHGFG). The four 
bytes on page hold pointers to the first and sec- 
ond elements of the array (two bytes starting at 
address A1ADR, 00D0, 6 in the listing, and two 
bytes starting at address A2ADR, 00D2, 6 in the 
listing). 

Special Case: A size (or length) of 00 or 01 
causes an immediate exit with no sorting. 



necessary. Note that the number of pairs is 
always one less than the number of elements 
being considered, since the last element has 
no successor. 



Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 

Length (size) of array in bytes 

Less significant byte of starting address of 

array 
More significant byte of starting address of 

array 



Exit Conditions 

Array sorted into ascending order, con- 
sidered the elements as unsigned bytes. 
Thus, the smallest unsigned byte is now in 
the starting address. 
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Example 



Data: Length (size) of array = 06 

Elements = 35 16 , 6A, 6 , 2B, 6 , 3E 16 , D4 16 , 4F 16 
Result: After the first iteration, we have 

35, 6 ,2B 16 ,3E 16 ,6A, 6 ,4F 16 ,D4 16 . 
The largest element is now at the end of 
the array and need not be considered 
further. 



After the second iteration, we have 
2B, 6 ,35, 6 ,3E 16 ,4F 16 ,6A 16 ,D4 16 . 
The next to largest element is now in the correct 
position and need not be considered further. 

The third iteration leaves the array unchanged, 
since the elements are already in ascending order. 



Title 
Name: 



Purpose: 



Entry: 



Exit: 



Bubble sort 
BUBSRT 



Arrange an array of unsigned bytes into 
ascending order using a bubble sort, with a 
maximum size of 255 bytes. 

TOP OF STACK 

Low byte of return address, 

High byte of return address, 

Length (size) of array, 

Low byte of starting array address, 

High byte of starting array address 

The array is sorted into ascending order. 



Size: 



EQUATES SECTION 
A1ADR: . EQU ODOH 
A2ADR: .EQU 0D2H 



Registers used: All 
Time: 



Approximately (34 * N * N) + (25 * N) cycles 
plus 70 cycles overhead, where N is the size of 
the array. 



Program 79 bytes 
Data 2 bytes plus 

4 bytes in page zero 



.-ADDRESS OF FIRST ELEMENT 
; ADDRESS OF SECOND ELEMENT 



BUBSRT: 



;GET THE PARAMETERS FROM THE STACK 

PLA 

TAY ;SAVE LOW BYTE OF RETURN ADDRESS 
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PLA 




TAX 




PLA 




STA 


LEN 


PLA 




STA 


AlADR 


CLC 




ADC 


#1 


STA 


A2ADR 


PLA 




STA 


A1ADR+1 


ADC 


#0 


STA 


A2ADR+1 


TXA 




PHA 




TYA 




PHA 





;SAVE HIGH BYTE OF RETURN ADDRESS 

;SAVE THE LENGTH (SIZE) 

;SAVE THE LOW BYTE OF THE ARRAY ADDRESS 

;SET LOW BYTE OF A2ADR TO AlADR + 1 
;SAVE THE HIGH BYTE OF THE ARRAY ADDRESS 
;SET HIGH BYTE OF A2ADR 
; RESTORE HIGH BYTE OF RETURN ADDRESS 
; RESTORE LOW BYTE OF RETURN ADDRESS 



;BE SURE THE LENGTH IS GREATER THAN 1 
LDA LEN 
CMP #2 

BCC DONE ;EXIT IF THE LENGTH OF THE ARRAY IS 

; LESS THAN 2 

; REDUCE LENGTH BY 1 SINCE THE LAST ELEMENT HAS NO SUCCESSOR 
DEC LEN 



SRTLP: 



INLOOP: 



; BUBBLE SORT LOOP 



LDX 
LDY 
STY 

LDA 
CMP 
BCS 
PHA 
LDA 
STA 
PLA 
STA 
LDA 
STA 



AFTSWP: 



INY 
DEX 
BNE 



LEN 

#0 

XCHGFG 

(A2ADR) ,Y 
(AlADR) ,Y 
AFTSWP 

(AlADR) ,Y 
(A2ADR) ,Y 

(AlADR) ,Y 

#1 

XCHGFG 



INLOOP 



;X BECOMES NUMBER OF TIMES THROUGH INNER LOOP 

;Y BECOMES BEGINNING INDEX 

; INITIALIZE EXCHANGE FLAG TO 

/•COMPARE 2 ELEMENTS 

; BRANCH IF SECOND ELEMENT >= FIRST ELEMENT 

; SECOND ELEMENT LESS, SO EXHANGE ELEMENTS 

;GET SECOND ELEMENT 

; STORE IT INTO THE FIRST ELEMENT 

;STORE FIRST ELEMENT INTO SECOND 

;SET EXCHANGE FLAG SINCE AN EXCHANGE OCCURRED 

.-INCREMENT TO NEXT ELEMENT 
/•BRANCH NOT DONE WITH INNER LOOP 



,-INNER LOOP IS COMPLETE IF THERE WERE NO EXCHANGES THEN EXIT 

LDA XCHGFG ;GET EXCHANGE FLAG 

BEQ DONE ;EXIT IF NO EXCHANGE WAS PERFORMED 

DEC LEN 

BNE SRTLP /-CONTINUE IF LENGTH IS NOT ZERO 
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DONE: 



RTS 



;DATA SECTION 
LEN: .BLOCK 1 
XCHGFG: .BLOCK 1 



SAMPLE EXECUTION 



; LENGTH OF THE ARRAY 

; EXCHANGE FLAG (1=EXCHANGE, 0=NO EXCHANGE) 



; PROGRAM SECTION 


SC0906: 








;SORT 


AN ARRAY 




LDA 


BFADR+1 




PHA 






LDA 


BFADR 




PHA 






LDA 


BFSZ 




PHA 






JSR 


BUBSRT 




BRK 





JMP 



SC0906 



;PUSH HIGH BYTE OF STARTING ADDRESS 
;PUSH LOW BYTE OF STARTING ADDRESS 



PUSH LENGTH (SIZE OF ARRAY) 

SORT 

THE RESULT FOR THE INITIAL TEST DATA IS 

0,1,2,3, ... ,14,15 
LOOP FOR MORE TESTS 



;DATA 


SECTION 




SIZE 


.EQU 


010H 


BFADR 


.WORD 


BF 


BFSZ: 


.BYTE 


SIZE 


BF: 








.BYTE 


15 




.BYTE 


14 




.BYTE 


13 




• .BYTE 


12 




.BYTE 


11 




.BYTE 


10 




.BYTE 


9 




.BYTE 


8 




.BYTE 


7 




.BYTE 


6 




.BYTE 


5 




.BYTE 


4 




.BYTE 


3 




.BYTE 


2 




.BYTE 


1 




.BYTE 







.END 


; PROGRAM 



SIZE OF BUFFER 

STARTING ADDRESS OF BUFFER 

SIZE OF BUFFER 

BUFFER 



RAM Test (RAMTST) 
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Performs a test of an area of RAM 
memory specified by a starting address and a 
length in bytes. Writes the values 00, FF 16 , 
AA 16 (10101010,), and 55 16 (01010101 2 ) into 
each byte and checks to see if they can be 
read back correctly. Places a single 1 bit in 
each position of each byte and sees if that can 
be read back correctly. Clears the Carry flag if 
all tests can be performed; if it finds an error 
it immediately exits, setting the Carry flag 
and returning the address in which the error 
occurred and the value that was being used in 
the test. 

Procedure: The program performs the 
single value checks (with 00, FF 16 , AA 16 , and 
55 l6 ) by first filling the memory area and then 
comparing each byte with the specified value. 
Filling the entire area first should provide 
enough delay between writing and reading to 
detect a failure to retain data (perhaps caused 
by improperly designed refresh circuitry). 
The program then performs the walking bit 
test, starting with bit 7; here it writes the data 
into memory and immediately attempts to 
read it back for a comparison. In all the tests, 
the program handles complete pages first and 
then handles the remaining partial page; the 
program can thus use 8-bit counters rather 
than a 16-bit counter. This approach reduces 
execution time but increases memory usage 
as compared to handling the entire area with 
one loop. Note that the program exits 
immediately if it finds an error, setting the 
Carry flag to 1 and returning the location and 



Registers Used: All 

Execution Time: Approximately 245-cycles per 
byte tested plus 650 cycles overhead. Thus, for 
example, to test an area of size 0400 16 = 1024, 
would take 

245 • 1024 + 650 = 250.880 + 650 
= 251,530 cycles. 

Program Size: 229 bytes 

Data Memory Required: Six bytes anywhere in 
RAM plus two bytes on page 0. The six bytes any- 
where in RAM hold the address of. the first ele- 
ment (two bytes starting at address ADDR), the 
length of the tested area (two bytes starting at 
address LEN), arid the temporary length (two 
bytes starting at address TLEN). The two bytes 
on page hold a pointer to the tested' area (start- 
ing at address TADDR, 00D0 16 in the listing). 

Special Cases: 

1. An area size of O0O0| 6 causes an immediate 
exit with no memory tested. The Carry flag is 
cleared to indicate no errors. 

2. Since the routine changes all bytes in the 
tested area, using it to test an area that includes 
its own temporary storage will produce unpre- 
dictable results. 

Note that Case 1 means you cannot ask this 
routine to test the entire memory, but such a 
request would be meaningless anyway since it 
would require the routine to test its own tempor- 
ary storage. 

3. Attempting to test a ROM area will cause a 
return with an error indication as soon as the pro- 
gram attempts to store a value in a ROM location 
that is not already there. 



the value being used in the test. If all the tests 
can be performed correctly, the program 
clears the Carry flag before exiting. 
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Entry Conditions 

Order in stack (starting from the top) 

Less significant byte of return address 
More significant byte of return address 

Less significant byte of size (length) of area 

in bytes 
More significant byte of size (length) of area 

in bytes 
Less significant byte of starting address of 

test area 
More significant byte of starting address of 

test area 



Exit Conditions 

1. If an error is found, 
Carry = 1 

(A) = More significant byte of address 

containing error 
(Y) = Less significant byte of address 

containing error 
(X) = Expected value (value being used 

in test) 

2. If no error is found, 

Carry = 

All bytes in test area contain 00. 



Example 



Data: Starting address = 0380 16 

Length (size) of area = 0200 16 
Result: Area tested is the 0200 l6 bytes, starting at 
addresses 0380, 6 . That is, address 0380, 6 
through 057F, 6 . The order of the tests is: 

1. Write and read 00 

2. Write and read FF, 6 



3. Write and read AA, 6 (!0101010 2 ) 

4. Write and read 55, 6 (01010101 2 ) 

5. Walking bit test, starting with bit 7 and moving 
right. That is, starting with 80, 6 (1000000 2 ) and moving 
the 1 bit one position right in each subsequent test of a 
single byte. 



Title 
Name: 



Purpose: 



RAM test 
RAMTST 



Perform a test of RAM memory 

1) Write all 00 hex and test 

2) Write all FF hex and test 

3) Write all AA hex and test 

4) Write all 55 hex and test 

5) Shift a single 1 bit thourgh all of memory 

If the program finds an error, it exits 
immediately with the CARRY flag set and 
indicates where the error occurred and 
what value it used in the test. 



9G RAM TEST (RAMTST) 409 



Entry: 



Exit: 



TOP OF STACK 

Low byte of return address, 

High byte of return address, 

Low byte of length in bytes, 

High byte of length in bytes, 

Low byte of starting address of test area, 

High byte of starting address of test area 

If there are no errors then 

CARRY flag equals 

test area contains 00 in all bytes 
else 

CARRY flag equals 1 

Register A = High byte of the address 
containing the error 

Register Y = Low byte of the address 
containing the error 

Register X = Expected value 



Registers used: All 



Time: 



Size: 



Approximately 245 cycles per byte plus 
650 cycles overhead. 

Program 228 bytes 
Data 6 bytes plus 

2 bytes in page zero 



; EQUATES SECTION 



TADDR : 
RAMTST: 



.EQU 



0D0H 



;PAGE ZERO POINTER TO TEST AREA 



;GET THE RETURN ADDRESS 

PLA 

TAY 

PLA 

TAX 



;GET THE LENGTH OF THE TEST AREA 

PLA 

STA LEN 

PLA 

STA LEN+1 



;GET THE STARTING ADDRESS OF THE TEST AREA 

PLA 

STA ADDR 

PLA 

STA ADDR+1 
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; RESTORE THE RETURN ADDRESS 

TXA 

PHA 

TYA 

PHA 



;BE SURE THE LENGTH IS NOT ZERO 
LDA LEN 

BEQ EXITOK ;EXIT WITH NO ERRORS IF LENGTH IS ZERO 

;FILL MEMORY WITH FF HEX (ALL l'S) AND' COMPARE 

LDA #0FFH 

JSR FILCMP 

BCS EXITER ;EX1T IF AN ERROR 

;FILL MEMORY WITH AA HEX (ALTERNATING l'S AND O'S) AND COMPARE 

LDA #OAAH 

JSR FILCMP 

BCS EXITER ;EXIT IF AN ERROR 

;FILL MEMORY WITH 55 HEX (ALTERNATING O'S AND l'S) AND COMPARE 

LDA #55H 

JSR FILCMP 

BCS EXITER ;EXIT IF AN ERROR 

;FILL MEMORY WITH AND COMPARE 
LDA #0 
JSR FILCMP 
BCS EXITER 



; PERFORM WALKING BIT TEST 



JSR 



ITEMPS 



INITIALIZE TEMPORARIES 



;WALK THROUGH THE 256 BYTE PAGES 





LDX 


TLEN+1 




BEQ 


WLKPRT 




LDY 


#0 


WLKLP: 








LDA 


#80H 


WLKLP1: 








STA 


(TADDR) ,Y 




CMP 


(TADDR) ,Y 




BNE 


EXITER 




LSR 


A 




BNE 


WLKLP1 




STA 


(TADDR) ,Y 




INY 






BNE 


WLKLP 




INC 


TADDR+1 




DEX 






BNE 


WLKLP 



CHECK IF ANY FULL PAGES TO DO 
BRANCH IF NONE 
REGISTER Y IS INDEX 

SET BIT 7 TO 1, ALL OTHER BITS TO ZERO 

STORE TEST PATTERN IN MEMORY 

COMPARE VALUE WITH WHAT IS READ BACK 

EXIT INDICATING ERROR IF NOT THE SAME 

SHIFT TEST PATTERN RIGHT ONE BIT 

BRANCH IF NOT DONE WITH BYTE 

STORE A ZERO BACK INTO THE LAST BYTE 

INCREMENT TO NEXT BYTE IN PAGE 

BRANCH IF NOT DONE WITH PAGE 

INCREMENT TO NEXT PAGE 

DECREMENT PAGE COUNTER 

BRANCH IF NOT DONE WITH ALL OF THE PAGES 



;WALK THROUGH LAST PARTIAL PAGE 
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WLKPRT: 










LDX 


TLEN 






BEQ 


EXITOK 






LDY 


#0 




WLKLP2: 










LDA 


#80H 




WLKLP3: 










STA 


(TADDR) 


,Y 




CMP 


(TADDR) 


,Y 




BNE 


EXITER 






LSR 


A 






BNE 


WLKLP3 






STA 


(TADDR) 


,Y 




INY 








DEX 








BNE 


WLKLP2 




EXITOK: 


CLC 
RTS 






EXITER: 










JSR 


ERROR 






RTS 







;GET NUMBER OF BYTES IN LAST PAGE 

;EXIT IF NONE 

; INITIALIZE INDEX TO ZERO 



;START WITH BIT 7 EQUAL TO 1 

;STORE TEST PATTERN IN MEMORY 

;COMPARE VALUE WITH WHAT IS READ BACK 

;EXIT INDICATING ERROR IF NOT THE SAME 

; SHIFT TEST PATTERN RIGHT 

; BRANCH IF NOT DONE 

;STORE A ZERO BACK INTO THE LAST BYTE 

; INCREMENT TO NEXT BYTE 

.•DECREMENT BYTE COUNTER 

; BRANCH IF NOT DONE 



;RETURN WITH NO ERROR 



,-RETURN WITH AN ERROR 



*********************************** 

ROUTINE: FILCMP 

PURPOSE: FILL MEMORY WITH A VALUE AND TEST 

THAT MEMORY CONTAINS THAT VALUE 
ENTRY: REGISTER A = VALUE 

ADDR = STARTING ADDRESS 
LEN = LENGTH 
EXIT: IF NO ERRORS THEN 

CARRY FLAG EQUALS 
ELSE 

CARRY FLAG EQUALS 1 

REGISTER A = HIGH BYTE OF ERROR LOCATION 
REGISTER Y = LOW BYTE OF ERROR LOCATION 
REGISTER X = EXPECTED VALUE 
REGISTERS USED: ALL 
************************************ 



FILCMP: 



FILLP: 



JSR 



ITEMPS 



; INITIALIZE TEMPORARIES 



;FILL MEMORY WITH THE VALUE IN REGISTER A 

;FILL FULL PAGES 

LDX TLEN+1 

BEQ FILPRT 

LDY #0 ; START AT INDEX 



STA 
INY 
BNE 



(TADDR) ,Y 
FILLP 



; STORE THE VALUE 

; INCREMENT TO NEXT LOCATION 

; BRANCH IF NOT DONE WITH THIS PAGE 
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INC TADDR+1 

DEX 

BNE FILLP 



INCREMENT HIGH BYTE OF TEMPORARY ADDRESS 

DECREMENT PAGE COUNT 

BRANCH IF NOT DONE WITH FILL 



FILPRT: 



FILL'Pl: 



;FILL PARTIAL PAGE 

LDX TLEN 

LDY #0 

STA (TADDR),Y 

INY 

DEX 

BNE FILLP1 



.-REGISTER Y IS SET TO SIZE OF LAST PAGE 



;CONTINUE 



CMPARE : 



CMPLP: 



;COMPARE MEMORY AGAINST THE VALUE IN REGISTER A 

JSR ITEMPS ; INITIALIZE TEMPORARIES 

;COMPARE MEMORY WITH THE VALUE IN REGISTER A 
; COMPARE FULL PAGES FIRST 



LDX 
BEQ 
LDY 

CMP 
BNE 
INY 
BNE 

INC 
DEX 
BNE 



TLEN+1 
CMPPRT 
#0 

(TADDR) ,Y 
CMPER 

CMPLP 
TADDR+1 

CMPLP 



; START AT INDEX 

CAN THE STORED VALUE BE READ BACK ? 

NO, EXIT INDICATING ERROR 

INCREMENT TO NEXT LOCATION 

BRANCH IF NOT DONE WITH THIS PAGE 

INCREMENT HIGH BYTE OF TEMPORARY ADDRESS 

DECREMENT PAGE COUNT 

BRANCH IF NOT DONE WITH FILL 



CMPPRT: 



CMPLP 1: 



•COMPARE THE LAST PARTIAL PAGE 

LDX TLEN REGISTER Y = SIZE OF PARTIAL PAGE 

LDY #0 



CMP 
BNE 
INY 
DEX 
BNE 



(TADDR) ,Y 
CMPER 



CMPLPl 



;CAN THE STORED VALUE BE READ BACK ? 
';NO, EXIT INDICATING ERROR 



.-CONTINUE 



CMPOK: 



CLC 
RTS 



; INDICATE NO ERROR 



CMPER: 



JSR 
RTS 



ERROR 



*********************************** 

ROUTINE: ITEMPS 

PURPOSE: INITIALIZE TEMPORARIES 
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ENTRY: ADDR IS BEGINNING ADDRESS 
LEN IS NUMBER OF BYTES 

EXIT: TADDR IS SET TO ADDR 
TLEN IS SET TO LEN 

REGISTERS USED: Y,P 

********************************** 



ITEMPS: 




LDY 


ADDR 


STY 


TADDR 


LDY 


ADDR+1 


STY 


TADDR+1 


LDY 


LEN 


STY 


TLEN 


LDY 


LEN+1 


STY 


TLEN+1 


RTS 





*************************************** 
ROUTINE: ERROR 

PURPOSE: SET UP THE REGISTERS FOR AN ERROR EXIT 
ENTRY: REGISTER A IS EXPECTED BYTE 

TADDR IS BASE ADDRESS 

REGISTER* Y IS INDEX 
EXIT REGISTER X IS SET TO EXPECTED BYTE 

REGISTER A IS SET TO HIGH BYTE OF THE ADDRESS CONTAINING THE ERROR 

REGISTER Y IS SET TO LOW BYTE OF THE ADDRESS CONTAINING THE ERROR 

CARRY FLAG IS SET TO 1 
REGISTERS USED: ALL 
************************************** 



ERROR: 





TAX 






TYA 






CLC 






ADC 


TADDR 




TAY 






LDA 


TADDR+1 




ADC 


#0 




SEC 






RTS 




; DATA 


SECTION 




ADDR: 


. BLOCK 


2 


LEN: 


.BLOCK 


2 


TLEN: 


.BLOCK 


2 



.•REGISTER X = EXPECTED BYTE 

;GET INDEX 

; ADDRESS OF ERROR = BASE + INDEX 

; REGISTER Y = LOW BYTE OF ERROR LOCATION 

;REGISTER A = HIGH BYTE OF ERROR LOCATION 
; INDICATE AN ERROR BY SETTING CARRY TO 1 



.•ADDRESS OF FIRST ELEMENT 
; LENGTH 
.•TEMPORARY LENGTH 



SAMPLE EXECUTION 
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SC0907: 



•TEST MEMORY 





LDA 


ADR+1 




PHA 






LDA 


ADR 




PHA 






LDA 


SZ+1 




PHA 






LDA 


SZ 




PHA 






JSR 


RAMTST 




BRK 






JMP 


SC0907 


ADR 


.WORD 


2000H 


SZ 


.WORD 


1010H 




.END 


; PROGRAM 



;PUSH HIGH BYTE OF STARTING ADDRESS 

;PUSH LOW BYTE OF STARTING ADDRESS 

;PUSH HIGH BYTE OF LENGTH 

;PUSH LOW BYTE OF LENGTH 
• TEST 

,-CARRY FLAG SHOULD BE 
;LOOP FOR MORE TESTING 



Jump Table (JTAB) 



9H 



Transfers control to an address selected 
from a table according to an index. The 
addresses are stored in the usual 6502 style 
(less significant byte first), starting at address 
TABLE. The size of the table (number of 
addresses) is a constant LENSUB, which 
must be less than or equal to 128. If the index 
is greater than or equal to LENSUB, the pro- 
gram returns control immediately with the 
Carry flag set to 1 . 

Procedure: The program first checks if the 
index is greater than or equal to the size of 
the table (LENSUB). If it is, the program 
returns control with the Carry flag set. If it is 
not, the program obtains the starting address 



Registers Used: A, P 

Execution Time: 31 cycles overhead, besides the 
lime required to execute the subroutine. 

Program Size: 23 bytes plus 2'*LENSUB bytes for 
the table of starting addresses "where LENSUB is 
the number of subroutines. 

Data Memory Required: Two bytes anywhere in 
RAM (starting at address TMP) to hold the 
indirect address obtained from the table. 

Special Case: Entry with (A) greater than or 
equal to LENSUB causes an immediate exit with 
Carry flag set to 1. 



of the appropriate subroutine from the table, 
stores it in memory, and jumps to it 
indirectly. 



Entry Conditions 

(A) = index 



Exit Conditions 

If (A) is greater than LENSUB, an immedi- 
ate return with Carry = 1. Otherwise, control 
transferred to appropriate subroutine as if an 
indexed call had been performed. The return 
address remains at the top of the stack. 



Example 



Data: LENSUB (size of subroutine table) = 03. 

Table consists of addresses SUBO, SUB1 
and SUB2. 
Index = (A) = 02 

Result: Control transferred to address SUB2 

(PC = SUB2). 
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Title 
Name: 



Jump table 
JTAB 



Purpose: 
Entry: 

Exit: 



Given an index, jump to the subroutine with 
that index in a table 

Register A is the subroutine number to 

LENSUB-1, the number of subroutines, 
LENSUB must be less than or equal to 
128. 

If the routine number is valid then 

execute the routine 
else 

CARRY flag equals 1 

Registers used: A,P 

Time: 31 cycles plus execution time of subroutine 

size . Program 23 bytes plus size of table (2*LENSUB) 

Data 2 bytes 



JTAB: 





CMP 


#LENSUB 




BCS 


JTABER 




ASL 


A 




TAY 






LDA 


TABLE , Y 




STA 


TMP 




LDA 


TABLE+1,Y 




STA 


TMP+1 




JMP 


(TMP) 


JTABER: 


SEC 
RTS 




LENSUB 


.EQU 


3 


TABLE: 








.WORD 


SUBl 




.WORD 


SUB2 




.WORD 


SUB3 



TMP: 



.BLOCK 



;BRANCH IF REGISTER A IS TOO LARGE 

; MULTIPLY VALUE BY 2 FOR WORD-LENGTH INDEX 

;MOVE STARTING ADDRESS TO TEMPORARY STORAGE 



;JUMP INDIRECTLY TO SUBROUTINE 
; INDICATE A BAD ROUTINE NUMBER 



ROUTINE 
ROUTINE 1 
ROUTINE 2 

TEMPORARY ADDRESS TO JUMP INDIRECT THROUGH 
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;THREE SUBROUTINES WHICH ARE IN THE JUMP TABLE 
SUB1: 

LDA #1 

RTS 



SUB2: 



SUB3: 



LDA #2 
RTS 



LDA #3 
RTS 



SAMPLE EXECUTION 



; PROGRAM SECTION 


SC0908: 




LDA 


#0 


JSR 


JTAB 


BRK 




LDA 


#1 


JSR 


JTAB 


BRK 




LDA 


#2 


JSR 


JTAB 


BRK 




LDA 


#3 


JSR 


JTAB 


BRK 




JMP 


SC0908 


.END 


; PROGRAM 



; EXECUTE ROUTINE 0, REGISTER A EQUALS 1 
; EXECUTE ROUTINE 1, REGISTER A EQUALS 2 
; EXECUTE ROUTINE 2, REGISTER A EQUALS 3 



; ERROR CARRY FLAG EQUALS 1 
;LOOP FOR MORE TESTS 



Read a Line of Characters from a Terminal 

(RDLINE) 



10A 



Reads ASCII characters from a terminal 
and saves them in a buffer until it encounters 
a carriage return character. Defines the con- 
trol characters Control H (08 hex), which 
deletes the character most recently entered 
into the buffer, and Control X (18 hex), 
which deletes all characters in the buffer. 
Sends a bell character (07 hex) to the ter- 
minal if the buffer becomes full. Echoes to 
the terminal each character placed in the 
buffer. Sends a new line sequence (typically 
carriage return, line feed) to the terminal 
before exiting. 

RDLINE assumes the existence of the 
following system-dependent subroutines: 

1 . RDCH AR reads a single character from 
the terminal and places it in the accumulator. 

2. WRCHAR sends the character in the 
accumulator to the terminal. 

3. WRNEWL sends a new line sequence 
(typically consisting of carriage return and 
line feed characters) to the terminal. 

These subroutines are assumed to change 
the contents of all the user registers. 

RDLINE is intended as an example of a 
typical terminal input handler. The specific 
control characters and I/O subroutines in a 
real system will, of course, be computer- 
dependent. A specific example in the listing 
describes an Apple II computer with the 
following features: 

1. The entry point for the routine that 
reads a character from the keyboard is 
FD0C 16 . This routine returns with bit 7 set, 
so that bit must be cleared for normal ASCII 
operations. 



Registers Used: All 

Execution Time: Approximately 67 cycles to 
place an ordinary character in the buffer, not con- 
sidering the execution time of either RDCHAR 
or WRCHAR. 

Program Size: 138 bytes 

Data Memory Required: Four bytes anywhere in 
RAM plus two bytes on page 0. The four bytes 
anywhere in RAM hold the buffer index (one 
byte at address BUFIDX), the buffer length (one 
byte at address BUFLEN), the count for the 
backspace routine (one byte at address COUNT), 
and the index for the backspace routine (one byte 
at address INDEX). The two bytes on page hold 
a pointer to the input buffer (starting at address 
BUFADR, 00D0 16 in the listing). 

Special Cases: 

1. Typing Control H (delete one character) or 
Control X (delete the entire line) when there is 
nothing in the buffer has no effect on the buffer 
and does not cause anything to be sent to the ter- 
minal. 

2. If the program receives an ordinary 
character when the buffer is full, it sends a Bell 
character to the terminal (ringing the bell), dis- 
cards the received character, and continues its 
normal operations. 



2. The entry point for the routine that 
sends a character to the monitor is FDED 16 . 
This routine requires bit 7 of the character 
(in the accumulator) to be set. 

3. The entry point for the routine that 
issues the appropriate new line character (a 
carriage return) is FD8E 16 . 

4. An 08 16 character moves the cursor left 
one position. 

A standard reference describing the Apple II 
computer is L. Poole et al., Apple II User's 
Guide, Berkeley: Osborne/McGraw-Hill, 
1981. 



418 



1 0A READ A LINE OF CHARACTERS (RDLINE) 419 



Procedure: The program first reads a 
character using the RDCHAR routine and 
exits if the character is a carriage return. If 
the character is not a carriage return, the pro- 
gram checks for the special characters Con- 
trol H and Control X. In response to Control 
H, the program decrements the buffer index 
and sends a backspace string (consisting of 
cursor left, space, cursor left) to the terminal 
if there is anything in the buffer. In response 
to Control X, the program repeats the 



response to Control H until it empties the 
buffer. If the character is not special, the pro- 
gram checks to see if the buffer is full. If the 
buffer is full, the program sends a bell 
character to the terminal and continues. If 
the buffer is not full, the program stores the 
character in the buffer, echoes it to the ter- 
minal, and adds one to the buffer index. 
Before exiting, the program sends a new line 
sequence to the terminal using the 
WRNEWL routine. 



Entry Conditions 

(A) = More significant byte of starting 
address of buffer 

(Y) = Less significant byte of starting 

address of buffer 
(X) = Length (size) of the buffer in bytes. 



Exit Conditions 

(X) = Number of characters in the buffer. 



Examples 



1. Data: Line (from keyboard is 'ENTERcr' 
Result: Buffer index = 5 (length of line) 

Buffer contains 'ENTER' 
'ENTER' echoed to terminal, followed by 
the new line sequence (typically either car- 
riage return, line feed or just carriage 
return) 

Note that the 'cr' (carriage return) 
character does not appear in the buffer. 

2. Data: Line (from keyboard) is 'DMcontrolHN 

controlXENTETcontrolHRcr'. 
Result: Buffer index = 5 (length of actual line) 
Buffer contains 'ENTER' 
'ENTER' echoed to terminal, followed by 
the new line sequence (typically either car- 
riage return, line feed or just carriage 
return) 



The sequence of operations is as follows: 



Character 


Initial 


Final 


Typed 


Buffer 


Buffer 


D 


empty 


'D' 


M 


'D' 


'DM' 


control H 


'DM' 


'D' 


N 


'D' 


'DN' 


control X 


'DN' 


empty 


E 


empty 


'E' 


N 


'E' 


'EN' 


T 


'EN' 


'ENT' 


E 


'ENT' 


'ENTE' 


T 


'ENTE' 


'ENTET 


control H 


'ENTET' 


'ENTE' 


R 


'ENTE' 


'ENTER 


cr 


'ENTER' 


'ENTER 
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What has happened is the following: 

a. The operator types 'D\ 'M' 

b. The operator recognizes that 'M' is incorrect 
(should be 'N'), types control H to delete it, and types 

c. The operator then recognizes that the initial 'D' is 
incorrect also (should be 'E'). Since the character to be 



deleted is not the latest one, the operator types control 
X to delete the entire line, and then types l ENTET\ 

d. The operator recognizes that the second 'T is 
incorrect (should be 'R'), types control H to delete it, 
and types 'R\ 

e. The operator types a carriage return to conclude 
the line. 



Title 
Name: 



Purpose: 



Entry: 



Exit: 



Read line 
RDLINE 



Read characters from the input device until 
a carriage return is found. RDLINE defines the 
following control characters: 

Control. H — Delete the previous character. 

Control X — Delete all characters. 

Register A = High byte of buffer address 
Register Y = Low byte of buffer address 
Register X = Length of the buffer 

Register X = Number of characters in the buffer 



Registers used: All 

Time: Not applicable 

Size: 



Program 138 bytes 
Data 4 bytes plus 

2 bytes in page zero 



;PAGE ZERO POINTER 
BUFADR .EQU ODOH 



; EQUATES 
DELKEY . EQU 
BSKEY .EQU 



018H 
8H 



; INPUT BUFFER ADDRESS 



; DELETE LINE KEYBOARD CHARACTER 
; BACKSPACE KEYBOARD CHARACTER 
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CRKEY . EQU ODH 
SPACE .EQU 020H 
BELL .EQU 07H 



; CARRIAGE RETURN KEYBOARD CHARACTER 

; SPACE CHARACTER 

;BELL CHARACTER TO RING THE BELL ON THE TERMINAL 



RDLINE: 



INIT: 



;SAVE PARAMETERS 
STA BUFADR+1 
STY BUFADR 
STX BUFLEN 



;SAVE HIGH BYTE OF INPUT BUFFER ADDRESS 
;SAVE LOW BYTE OF INPUT BUFFER ADDRESS 
;SAVE MAXIMUM LENGTH 



.-INITIALIZE BUFFER INDEX TO ZERO 



LDA 
STA 



#0 
BUFIDX 



RDLOOP: 



;READ LOOP 

;READ CHARACTERS UNTIL A CARRIAGE RETURN OCCURS 



JSR 



RDCHAR 



;READ A CHARACTER FROM THE KEYBOARD 
;DOES NOT ECHO 



;CHECK FOR CARRIAGE RETURN AND EXIT IF FOUND 
CMP #CRKEY 
BEQ EXITRD 



RDLP1: 



DELI: 



RDLP2: 



STRCH: 



; CHECK FOR BACKSPACE AND BACK UP IF FOUND 

CMP #BSKEY 

BNE RDLP1 ;BRANCH IF NOT BACKSPACE CHARACTER 

JSR BACKSP ;IF BACKSPACE, BACK UP ONE CHARACTER 

JMP RDLOOP ; THEN START READ LOOP AGAIN 

;CHECK FOR DELETE LINE CHARACTER AND DELETE LINE IF FOUND 



; BRANCH IF NOT DELETE LINE CHARACTER 



CMP 


itDELKEY 


BNE 


RDLP2 


JSR 


BACKSP 


LDA 


BUFIDX 


BNE 


DELI 


BEQ 


RDLOOP 



; DELETE A CHARACTER 

;CONTINUE DELETING UNTIL BUFFER IS EMPTY 

;THEN GO READ THE NEXT CHARACTER 



NOT A SPECIAL CHARACTER 
CHECK IF BUFFER IS FULL 
IF NOT FULL STORE CHARACTER AND ECHO 



;IS BUFFER FULL? 



LDY 


BUFIDX 


CPY 


BUFLEN 


BCC 


STRCH 


LDA 


#BELL 


JSR 


WRCHAR 


JMP 


RDLOOP 


STA 


(BUFADR) ,Y 


JSR 


WRCHAR 



;BRANCH IF NOT 

;YES IT IS FULL, RING THE TERMINAL'S BELL 

;THEN CONTINUE THE READ LOOP 



,-STORE THE CHARACTER 

;ECHO CHARACTER TO TERMINAL 
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INC BUFIDX ; INCREMENT BUFFER INDEX 

JMP RDLOOP ;THEN CONTINUE THE READ LOOP 

;EXIT SEQUENCE 

;ECHO NEW LINE SEQUENCE (USUALLY CR,LF) 
;GET LENGTH OF BUFFER 
EXITRD: 

JSR WRNEWL 
LDX BUFIDX 
RTS 



ECHO THE NEW LINE SEQUENCE 
RETURN THE LENGTH IN X 
RETURN 



; THE FOLLOWING SUBROUTINES ARE SYSTEM SPECIFIC, 
THE APPLE II WAS USED IN THESE EXAMPLES. 

********************************************** 

********************************************* 

PURPOSE! READ A CHARACTER BUT DO NOT ECHO TO OUTPUT DEVICE 

ENTRY: NONE 

EXIT: REGISTER A = CHARACTER 

REGISTERS USED: ALL 

**************************************** 

RDPHAR " 

JSR OFDOCH ;APPLE MONITOR READ KEYBOARD 

AND lOlllllllB ;ZERO BIT 7 

RTS 

***************************************** 

ROUTINE: WRCHAR ^^ 

PURPOSE: WRITE A CHARACTER TO THE OUTPUT DEVICE 

ENTRY: REGISTER A = CHARACTER 

EXIT: NONE 

REGISTERS USED: ALL ^xxx** 

***************************************** 

WRCHAR: _ m oTm _ 

noA #10000000B ;SET BIT 1 
j£r" OFDEDH I APPLE MONITOR CHARACTER OUTPUT ROUTINE 

RTS 

****************************************** 

ROUTINE: WRNEWL „_„„ „„ 

PURPOSE- ISSUE THE APPROPRIATE NEW LINE CHARACTER OR 

CHARACTERS. NORMALLY, THIS IS A CARRIAGE RETURN 

AND LINE FEED, BUT SOME COMPUTERS (SUCH AS APPLE II) 

REQUIRE ONLY A CARRIAGE RETURN. 

ENTRY: NONE 

EXIT: NONE 

REGISTERS USED: ALL xxxxx**** 

******************************************* 



WRNEWL: 



JSR 
RTS 



0FD8EH 



1 0A READ A LINE OF CHARACTERS (RDLINE) 423 



;ECHO CARRIAGE RETURN AND LINE FEED 



;ROUTINE: BACKSP 

; PURPOSE: PERFORM A DESTRUCTIVE BACKSPACE 

;ENTRY: BUFIDX = INDEX TO NEXT AVAILABLE LOCATION IN BUFFER 

;EXIT: CHARACTER REMOVED FROM BUFFER 

.-REGISTERS USED: ALL 



BACKSP: 



;CHECK FOR EMPTY BUFFER 

LDA BUFIDX 

BEQ EXITBS ;EXIT IF NO CHARACTERS IN BUFFER 

;BUFFER IS NOT EMPTY SO DECREMENT BUFFER INDEX 
DEC BUFIDX ; DECREMENT BUFFER INDEX 



;OUTPUT BACKSPACE STRING 





LDA 


ILENBSS 




STA 


COUNT 




LDA 


#0 




STA 


INDEX 


BSLOOP: 








LDA 


COUNT 




BEQ 


EXITBS 




LDY , 


INDEX 




LDA 


BSSTRG, Y 




JSR 


WRCHAR 




INC 


INDEX 




DEC 


COUNT 




JMP 


BSLOOP 


EXITBS: 


RTS 




CSRLFT 


. EQU 


U8H 


LENBSS: 


.EQU 


3 


BSSTRG: 


.BYTE 


CSRLFT, S 


;DATA 






BUFIDX: 


. BLOCK 


1 


BUFLEN: 


.BLOCK 


1 


COUNT: 


. BLOCK 


1 


INDEX: 


.BLOCK 


1 



; COUNT = LENGTH OF BACKSPACE STRING 
; INDEX = INDEX TO FIRST CHARACTER 

;EXIT IF ALL CHARACTERS HAVE BEEN SENT 

;GET NEXT CHARACTER 
.-OUTPUT CHARACTER 



/CHARACTER WHICH MOVES CURSOR LEFT ONE LOCATION 
; LENGTH OF BACKSPACE STRING 



; INDEX TO NEXT AVAILABLE CHARACTER IN BUFFER 

,-BUFFER LENGTH 

;COUNT FOR BACKSPACE AND RETYPE 

; INDEX FOR BACKSPACE AND RETYPE 



SAMPLE EXECUTION: 
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SC1001: 








;READ LINE 




LDA 


jj ti j 11 




JSR 


WRCHAR 




LDA 


ADRBUF+1 




LDY 


ADRBUF 




LDX 


#LINBUF 




JSR 


RDLINE 




;ECHO LINE 




STX 


CNT 




LDA 


#0 




STA 


IDX 


TLOOP: 








LDA 


CNT 




BNE 


TLOOP1 




JSR 


WRNEWL 




JMP 


SC1001 


TLOOP1: 








LDY 


IDX 




LDA 


INBUFF, Y 




JSR 


WRCHAR 




INC 


IDX 




DEC 


CNT 




JMP 


TLOOP 


;DATA SECTION 




IDX: 


•BLOCK 


1 


CNT: 


.BLOCK 


1 


ADRBUF: 


.WORD 


INBUFF 


LINBUF: 


.EQU 


10H 


INBUFF 


.BLOCK 


LINBUF 




.END 


; PROGRAM 



.-OUTPUT PROMPT (QUESTION MARK) 
;GET THE BUFFER ADDRESS 

;GET THE BUFFER LENGTH 
,-READ A LINE 



; STORE NUMBER OF CHARACTERS IN THE BUFFER 



BRANCH IF THERE ARE MORE CHARACTERS TO SEND 
IF NOT ISSUE NEW LINE (CR,LF) 
AND START OVER 



;GET THE NEXT CHARACTER 
;OUTPUT IT 

; DECREMENT LOOP COUNTER 



; INDEX 

; COUNTER 

.-ADDRESS OF INPUT BUFFER 

j LENGTH OF INPUT BUFFER 

;DEFINE THE INPUT BUFFER 



Write a Line of Characters to an Output Device 

(WRLINE) 



10B 



Writes characters to an output device 
using the computer-dependent subroutine 
WRCHAR, which writes the character in the 
accumulator on the output device. Continues 
until it empties a buffer with given length and 
starting address. This subroutine is intended 
as an example of a typical output driver. The 
specific I/O subroutines will, of course, be 
computer-dependent. The specific example 
described is the Apple II computer with the 
following features: 

1. The entry point for the routine that 
sends a character to the monitor is FDED, t . 

2. The character to be written must be 
placed in the accumulator with bit 7 set to 1. 

Procedure: The program exits immediately 
if the buffer length is zero. Otherwise, the 
program sends characters to the output 



Registers Used: All 

Execution Time: 24 cycles overhead plus 25 
cycles per byte (besides the execution time of 
subroutine WRCHAR). 

Program Size: 37 bytes 

Data Memory Required: Two bytes anywhere in 
RAM plus two bytes on page 0. The two bytes 
anywhere in RAM hold the buffer index (one 
byte at address BUFIDX) and the buffer length 
(one byte at address BUFLEN). The two bytes on 
page hold a pointer to the output buffer (start- 
ing at address BUFADR, 00D0, 6 in the listing). 

Special Case: 

A buffer length of zero causes an immediate 
exit with no characters sent to the output device. 



device one at a time until the buffer is 
emptied. The program saves all its temporary 
data in memory rather than in registers to 
avoid dependence on the WRCHAR routine. 



Entry Conditions 

(A) = More significant byte of starting 
address of buffer 

(Y) = Less significant byte of starting 

address of buffer 
(X) = Length (size) of the buffer in bytes. 



Exit Conditions 

None 



Example 



Data: Buffer length = 5 

Buffer contains 'ENTER' 



Result: 'ENTER' sent to the output device. 
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Title 
Name: 



Purpose: 
Entry: 



Write line 
WRLINE 



Write characters to the output device 

Register A = High byte of buffer address 
Register Y = Low byte of buffer address 
Register X = Length of the buffer in bytes 



Exit: None 

Registers used: All 
Time: 



Size: 



24 cycles overhead plus 

(25 + execution time of WRCHAR) cycles per byte 

Program 37 bytes 
Data 2 bytes plus 

2 bytes in page zero 



;PAGE ZERO POINTER 
BUFADR . EQU ODOH 



WRLINE: 



;SAVE PARAMETERS 
STA BUFADR+1 
STY BUFADR 
STX BUFLEN 
BEQ EXIT 



;OUTPUT BUFFER ADDRESS 



SAVE HIGH BYTE OF OUTPUT BUFFER ADDRESS 
SAVE LOW BYTE OF OUTPUT BUFFER ADDRESS 
SAVE LENGTH 
EXIT IF LENGTH = 



INITIALIZE BUFFER INDEX TO ZERO 



WRLOOP: 



LDA 
STA 

LDY 
LDA 
JSR 

INC 
DEC 
BNE 



#0 
BUFIDX 

BUFIDX 
(BUFADR) ,Y 
WRCHAR 
BUFIDX 
BUFLEN 
WRLOOP 



GET NEXT CHARACTER 
OUTPUT CHARACTER 
INCREMENT BUFFER INDEX 
DECREMENT BUFFER LENGTH 
BRANCH IF NOT DONE 



EXIT: 



RTS 
********************************************** 

THE FOLLOWING SUBROUTINES ARE SYSTEM SPECIFIC, 
THE APPLE II WAS USED IN THIS EXAMPLE. 

********************************************** 
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***************************************** 

ROUTINE: WRCHAR 

PURPOSE: WRITE A CHARACTER TO THE OUTPUT DEVICE 

ENTRY: REGISTER A = CHARACTER 

EXIT: NONE 

REGISTERS USED: ALL 
***************************************** 



WRCHAR: 



ORA 
JSR 
RTS 



#1000000UB ;SET BIT 7 

OFDEDH ;APPLE MONITOR CHARACTER OUTPUT ROUTINE 



******************************** 



DATA SECTION 

BUFIDX: .BLOCK 1 

BUFLEN: .BLOCK 1 



; INDEX TO NEXT AVAILABLE CHARACTER IN BUFFER 
; BUFFER LENGTH 



SAMPLE EXECUTION: 



SC1002: 



;READ LINE USING THE APPLE MONITOR GETLN ROUTINE AT 0FD6AH 

; 3 3H = ADDRESS CONTAINING APPLE PROMPT CHARACTER 

; 200H = BUFFER ADDRESS 

LDA #"?" OR 80H ;USE ? FOR PROMPT WITH BIT 7 SET 

STA 033H ;SET UP APPLE PROMPT CHARACTER 

JSR 0FD6AH ;CALL APPLE MONITOR GETLN ROUTINE 

STX LENGTH ; RETURN LENGTH IN REGISTER X 



;WRITE THE LINE 
LDA #02H 
LDY #0 
LDX LENGTH 
JSR WRLINE 
JSR 0FD8EH 



JMP 



SC1002 



;A = HIGH BYTE OF BUFFER ADDRESS 

;Y = LOW BYTE OF BUFFER ADDRESS 

;X = LENGTH OF BUFFER 

.-OUTPUT THE BUFFER 

.-OUTPUT CARRIAGE RETURN VIA APPLE MONITOR 

;CONTINUE 



;DATA SECTION 
LENGTH: .BLOCK 1 



.END 



; PROGRAM 



Generate Even Parity (GEPRTY) 



10C 



Generates even parity for a seven-bit 
character and places it in bit 7. Even parity for 
a seven-bit character is a bit that makes the 
total number of 1 bits in the byte even. 

Procedure: The program generates even 
parity by counting the number of 1 bits in the 
seven least significant bits of the accumula- 
tor. The counting is accomplished by shifting 
the data left logically and incrementing the 
count by one if the bit shifted into the Carry 
is 1. The least significant bit of the count is an 
even parity bit; the program concludes by 



Registers Used: A, F 

Execution Time: 114 cycles maximum. Depends 
on the number of 1 bits in the data and how 
rapidly the series of logical shifts makes the data 
zero. The program exits as soon as the remaining 
bits of data are all zeros, so the execution time is 
shorter if the less significant bits are all zeros. 

Program Size: 39 bytes 

Data Memory Required: One byte anywhere in 

RAM (at address VALUE) for the data. 



shifting that bit to the Carry and then to bit 7 
of the original data. 



Entry Conditions 

Data in the accumulator (bit 7 is not used). 



Exit Conditions 

Data with even parity in bit 7 in the 
accumulator. 



Examples 

1. Data: (A) = 42 16 



01000010, (ASCII B) 



Result: (A) = 42, 6 = 01000010 2 (ASCII B with bit 

7 cleared) 

Even parity is 0, since 01000010 2 has an 
even number (2) of 1 bits. 



2. Data: (A) = 43 16 = 0100001 1 2 (ASCII C) 

Result: (A) = C3 16 = 1 100001 1 2 (ASCII C with bit 
7 set) 



Title 
Name: 



Purpose: 
Entry: 



Generate even parity 
GEPRTY 



Generate even parity in bit 7 for a 7-bit 
character . 



Register A = Character 
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Exit: Register A = Character with even parity 

Registers used: A,F 

Time: li4 cycles maximum 

Size: Program 39 bytes 

Data 1 byte 



GEPRTY: 

;SAVE THE DATA 
STA VALUE 

;SAVE X AND Y REGISTERS 

PHA 

TXA 

PHA 

TYA 

; COUNT THE NUMBER OF 1 BITS IN BITS THROUGH 6 OF THE DATA 

LDY #0 INITIALIZE NUMBER OF 1 BITS TO ZERO 

LDA VALUE ;GET DATA 

ASL A ;DROP BIT 7 OF THE DATA, NEXT BIT TO BIT 7 

STA VALUE 

GELOOP: BPL SHFT ;BRANCH IF NEXT BIT (BIT 7) IS 

INY ;ELSE INCREMENT NUMBER OF 1 BITS 

SHFT: ASL A 

BNE GELOOP ;BRANCH IF THERE ARE MORE 1 BITS IN THE BYTE 

TYA ;BIT OF NUMBER OF 1 BITS IS EVEN PARITY 

LSR A ;MOVE PARITY TO CARRY 
LDA VALUE 

R °R A ; ROTATE ONCE TO FORM BYTE WITH PARITY IN BIT 7 
STA VALUE 

; RESTORE X AND Y AND EXIT 

PLA 

TAY 

PLA 

TAX 

LDA VALUE ;GET VALUE WITH PARITY 

RTS ; RETURN 

;DATA SECTION 

VALUE: .BLOCK 1 .-TEMPORARY DATA STORAGE 



SAMPLE EXECUTION: 
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.-GENERATE PARITY FOR VALUES FROM 0..127 AND STORE THEM IN BUFFER 
SC1003: 

LDX #0 
SC1LP: 

TXA 

JSR GEPRTY ; GENERATE EVEN PARITY 

STA BUFFER, X ;STORE THE VALUE WITH EVEN PARITY 

INX 

CPX #80H 

BNE SC1LP ;BRANCH IF NOT DONE 

BRK 

BUFFER .BLOCK 128 



.END 



; PROGRAM 



Check Parity (CKPRTY) 



10D 



Sets the Carry flag to if a data byte has 
even parity and to 1 if it has odd parity. A 
byte has even parity if it has an even number 
of 1 bits and odd parity if it has an odd num- 
ber of 1 bits. 

Procedure: The program counts the num- 
ber of 1 bits in the data by shifting the data 
left logically and incrementing a count if the 
bit shifted into the Carry is 1. The program 
quits as soon as the shifted data becomes zero 
(since zero obviously does not contain Ihy 1 
bits). The least significant bit of the count is 
if the data byte contains an even number of 1 
bits and 1 if the data byte contains an odd 
number of 1 bits. The program concludes by 



Registers Used: A, F 

Execution Time: 111 cycles maximum. Depends 
on the number of 1 bits in the data and how 
rapidly the series of logical shifts makes the data 
zero. The program exits as soori as the remaining 
bits of data are all zeros, so the execution time is 
shorter if the less significant bits are all zeros. 

Program Size: 25 bytes 

Data Memory Required: One byte anywhere in 
RAM (at address VALUE) for the data. 



shifting the least significant bit of the count 
to the Carry flag. 



Entry Conditions 



Exit Conditions 



Data byte in the accumulator (bit 7 is Carry = if the parity of the data byte is 
included in the parity generation). even, 1 if the parity is odd. 



Examples 

1. Data: (A) = 42 l6 = 01000010 2 (ASCII B) 2. Data: 

Result: Carry = 0, since 42, 6 (01000010 2 ) has Result: 

an even number (2) of 1 bits. 



A) = 43 16 = 0100001 1 2 (ASCII C) 

Carry = 1, since 43 16 (0100001 1 2 ) has 
an odd number (3) of 1 bits. 
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Title 
Name: 



Check parity 
CKPRTY 



Purpose: 

Entry: 

Exit: 



Check parity of a byte 

Register A = Byte with parity in bit 7 

Carry = if parity is even. 
Carry = 1 if parity is odd. 



Registers used: A,F 

Time: HI cycles maximum 

Size: Program 25 bytes 

Data 1 byte 



CKPRTY: 



;SAVE DATA VALUE 
STA VALUE 

;SAVE REGISTERS X AND Y 

TXA 

PHA 

TYA 

PHA 



;COUNT THE NUMBER OF 1 BITS IN THE VALUE 



LDY 

LDA 
CKLOOP: BPL 

INY 
SHFT: ASL 

BNE 

• TYA 
LSR 



#0 

VALUE 

SHFT 

A 
CKLOOP 



; NUMBER OF 1 BITS = 

BRANCH IF NEXT BIT = (BIT 7) 
ELSE INCREMENT NUMBER OF 1 BITS 
SHIFT NEXT BIT TO BIT 7 
CONTINUE UNTIL ALL BITS ARE 



; CARRY - FLAG = LSB OF NUMBER OF 1 BITS 



,-RESTORE REGISTERS X AND Y AND EXIT 

PLA 

TAY 

PLA 

TAX 

RTS 
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VALUE .BLOCK 1 



;DATA BYTE 



SAMPLE EXECUTION: 



;CHEC 
;BUFF 
;BUFF 
SC100 

SCLP: 



K PARITY FOR VALUES FROM 0..255 AND STORE THEM IN BUFFER 
ER (VALUE] = FOR EVEN PARITY 
ER [VALUE] = 1 FOR ODD PARITY 
4: 

LDX #0 



TXA 
JSR 
LDA 
ROL 
STA 
INX 
BNE 
BRK 
JMP 



CKPRTY 
#0 
A 
BUFFER, X 

SCLP 

SC1004 



;CHECK PARITY 

GET PARITY TO BIT 

STORE THE PARITY 

INCREMENT VALUE 

CONTINUE THROUGH ALL THE VALUES 



BUFFER .BLOCK 256 

.END ; PROGRAM 
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Generates a 16-bit cyclic redundancy 
check (CRC) based on the IBM Binary Syn- 
chronous Communications (BSC or Bisync) 
protocol. Uses the polynomial X 16 + X 15 + 
X 2 + 1 to generate the CRC. The entry point 
ICRC16 initializes the CRC to and the 
polynomial to the appropriate bit pattern. 
The entry point CRC 16 combines the pre- 
vious CRC with the CRC generated from the 
next byte of data. The entry point GCRC16 
returns the CRC. 

Procedure: Subroutine ICRC16 initializes 
the CRC to zero and the polynomial to the 
appropriate value (one in each bit position 
corresponding to a power of X present in the 
polynomial). Subroutine CRC16 updates the 
CRC according to a specific byte of data. It 
updates the CRC by shifting the data and the 
CRC left one bit and exclusive-ORing the 
CRC with the polynomial whenever the 
exclusive-OR of the data bit and the most sig- 
nificant bit of the CRC is 1. Subroutine 
CRC 16 leaves the CRC in memory locations 
CRC (less significant byte) and CRC + 1 
(more significant byte). Subroutine GCRC16 



Registers Used: 

1. ByICRC16: A, F 

2. By CRC16: None 

3. By GCRC16: A, F, Y 

Execution Time: 

1. For ICRC16: 28 cycles 

2. For CRC 16: 302 cycles minimum if no 1 
bits are generated and the polynomial and the 
CRC never have to be EXCLUSIVE-ORed. 19 
extra cycles for each time the polynomial and the 
CRC must be EXCLUSIVE-ORed. Thus, the 
maximum execution time is 302 + 19*8 = 454 
cycles. 

3. ForGCRC16: 14 cycles 

Program Size: 

1. For ICRC16: 19 bytes 

2. For CRC16: 53 bytes 

3. For GCRC16: 7 bytes 

Data Memory Required: Five bytes anywhere in 
RAM for the CRC (two bytes starting at address 
CRC), the polynomial (two bytes starting at 
address PLY), and the data byte (one byte at 
address VALUE). 



loads the CRC into the accumulator (more 
significant byte) and index register Y (less 
significant byte). 



Entry Conditions 



1. For ICRC16: none 

2. For CRC16: data byte in the accumula- 
tor, previous CRC in memory locations CRC 
(less significant byte) and CRC+1 (more 
significant byte) , CRC polynomial in memory 



locations PLY (less significant byte) and 
PLY + 1 (more significant byte) 

3. For GCRC16: CRC in memory loca- 
tions CRC (less significant byte), and 
CRC+1 (more significant byte). 
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Exit Conditions 

1. For ICRC16: zero (initial CRC value) 
in memory locations CRC (less significant 
byte) and CRC+1 (more significant byte) 
CRC polynomial in memory locations PLY 
(less significant byte) and PLY+ 1 (more sig- 
nificant byte) 

2. For CRC 16: CRC with current data 
byte included in memory locations CRC (less 



significant byte) and CRC+1 (more signifi- 
cant byte) 

3. For GCRC16: CRC in the accumulator 
(more significant byte) and index register Y 
(less significant byte). 



Examples 



1. Generating a CRC. 

Call ICRC16 to initialize the polynomial and start the 
CRC at zero. 

Call CRC 16 to update the CRC for each byte of data 
for which the CRC is to be generated. 

Call GCRC16 to obtain the resulting CRC (more sig- 
nificant byte in A, less significant byte in Y). 

2. Checking a CRC. 

Call ICRC16 to initialize the polynomial and start the 
CRC at zero. 

Call CRC 16 to update the CRC for each byte of data 
(including the stored CRC) for checking. 

Call GCRC16 to obtain the resulting CRC (more sig- 
nificant byte in A, less significant byte in Y). If there 
were no errors, both bytes should be zero. 



Note that only subroutine ICRC16 
depends on the particular CRC polynomial 
being used. To change the polynomial 
requires only a change of the data that 
ICRC16 loads into memory locations PLY 
(less significant byte) and PLY + 1 (more sig- 
nificant byte). 



Reference 



J.E. McNamara, Technical Aspects of Data 
Communications, Digital Equipment Corp., 
Maynard, Mass., 1977. This book contains 
explanations of CRC and the various com- 
munications protocols. 
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Title 
Name: 



Generate CRC-16 
CRC16 



Purpose: 



Entry: 
Exit: 



Generate a 16 bit CRC based on the IBM binary 
synchronous communications protocol. The CRC is 
based on the following polynomial: 
(" indicates "to the power") 
X~16 + X~15 + X 2 +1 

To generate a CRC: 

1) Call ICRC16 to initialize the CRC to 
and the CRC polynomial. 

2) Call CRC16 for each byte of data for 
which the CRC is to be generated. 

3) Call GCRC16 to get the resulting CRC. 
It should then be appended to the data, 
high byte first. 

To check a CRC: 



Size: 



1) 
2) 

3) 



Call ICRC16 to initialize the CRC. 
Call CRC16 for each byte of data and 
the 2 bytes of CRC previously generated. 
Call GCRC16 to obtain the CRC. It will 
be zero if no errors have occurred. 



Register A = Data byte 

CRCLO and CRCHI updated 
Register A = Data byte 



Registers used: None 
Time: 



302 cycles minimum if no 1 bits are generated. 
454 cycles maximum if all 1 bits are generated. 

Program 53 bytes 
Data 5 bytes 



CRC16: 



;SAVE THE DATA BYTE 
STA VALUE 

;SAVE ALL REGISTERS 

PHP 

PHA 

TYA 

PHA 

TXA 

PHA 



CRCLP: 



CRCLP1: 
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;LOOP THROUGH EACH BIT GENERATING THE CRC 
LDX #8 ;8 BITS PER BYTE 

ASL VALUE ;MOVE BIT 7 TO CARRY 

ROR A ;MOVE CARRY TO BIT 7 

AND #10000000B ;MASK OFF ALL OTHER BITS 

EOR CRC+1 .-EXCLUSIVE OR BIT 7 WITH BIT 16 OF THE CRC 

ASL CRC ;SHIFT CRC LEFT 1 BIT (FIRST THE LOW BYTE, 

R0L A ; THEN THE HIGH BYTE) 

BCC CRCLP1 ; BRANCH IF THE MSB OF THE CRC IS 1 

;BIT 7 IS 1 SO EXCLUSIVE-OR THE CRC WITH THE POLYNOMIAL 
TAY ;SAVE CRC HIGH IN Y 

LDA CRC 

EOR PLY ; EXCLUSIVE OR LOW BYTE WITH THE POLYNOMIAL 

STA CRC 

TYA 

EOR PLY+1 ;DO HIGH BYTE ALSO 

STA CRC+1 ; STORE THE HIGH BYTE OF THE CRC 

DEX 

BNE CRCLP ; BRANCH IF NOT DONE WITH ALL 8 BITS 

; RESTORE THE REGISTERS AND EXIT 

PLA 

TAX 

PLA 

TAY 

PLA 

PLP 

RTS 

;ROUTINE: ICRC16 

,-PURPOSE: INITIALIZE CRCHI, CRCLO, PLYHI, PLYLO 

; ENTRY: NONE 

;EXIT: CRC AND POLYNOMIAL INITIALIZED 

.-REGISTERS USED: A,F 

ICRC16: 

LDA #0 

STA CRC ;CRC = 

STA CRC+1 

LDA #5 

STA PLY ;PLY = 8005H 



LDA #8 OH 
STA PLY+1 
RTS 



8005H IS FOR X~16+X"l 5+X"2+l 
(1 IN EACH POSITION FOR WHICH A POWER 
APPEARS IN THE FORMULA) 
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******************************************* 

ROUTINE: GCRC16- 

PURPOSE: GET THE CRC16 VALUE 

ENTRY: NONE 

EXIT: REGISTER A = CRC16 HIGH BYTE 

REGISTER Y = CRC16 LOW BYTE 
REGISTERS USED: A,F,Y 
******************************************* 



GCRC16: 



LDA 
LDY 
RTS 



CRC+1 
CRG 



VALUE: .BLOCK 1 
CRC: .BLOCK 2 
PLY: .BLOCK 2 



;A = HIGH BYTE 
;Y = LOW BYTE 



DATA BYTE 
CRC VALUE 
POLYNOMIAL VALUE USED TO GENERATE THE CRC 



SAMPLE EXECUTION: 



SC1005: 



; GENERATE A CRC FOR A VALUE OF 1 AND CHECK IT 



JSR 
LDA 
JSR 
JSR 
TAX 
JSR 
LDA 
JSR 
TXA 
JSR 
TYA 
JSR 
JSR 
BRK 



ICRC16 
#1 

CRC 16 
GCRC16 

ICRC16 

#1 

CRC16 

CRC 16 

CRC 16 
GCRC16 



; GENERATE CRC 

;SAVE CRC HIGH BYTE IN REGISTER X 
INITIALIZE AGAIN 

;CHECK CRC BY GENERATING IT FOR DATA 

; AND THE STORED CRC ALSO 



;THE CRC SHOULD BE ZERO IN REGISTERS A AND Y 



GENLP: 



; GENERATE A CRC FOR THE VALUES FROM 0..255 AND CHECK IT 
JSR ICRC16 



LDX 

TXA 
JSR 
INX 
BNE 

JSR 
STA 
STY 



#0 

CRC16 

GENLP 

GCRC16 

CRCVAL+1 

CRCVAL 



;GET NEXT BYTE 
;UPDATE CRC 

; BRANCH IF NOT DONE 

;GET RESULTING CRC 
;AND SAVE IT 
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CHKLP: 



;CHECK THE CRC BY GENERATING IT AGAIN 
JSR ICRC16 
LDX #0 



TXA 




JSR 


CRC16 


INX 




BNE 


CHKLP 


;ALSO 


INCLUDE ST 


LDA 


CRCVAL+1 


JSR 


CRC 16 


LDA 


CRCVAL 


JSR 


CRC 16 


JSR 


GCRC16 


BRK 




JMP 


SC1005 


CRCVAL: BLOCK 


2 


.END 





;HIGH BYTE OF CRC FIRST 

;THEN LOW BYTE OF CRC 

;GET RESULTING CRC 
;IT SHOULD BE 
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Performs input and output in a device- 
independent manner using I/O control 
blocks and an I/O device table. The I/O 
device table consists of a linked list; each 
entry contains a link to the next entry, the 
device number, and starting addresses for 
routines that initialize the device, determine 
its input status, read data from it, determine 
its output status, and write data to it. An I/O 
control block is an array containing the 
device number, the operation number, 
device status, the starting address of the 
device's buffer, and the length of the device's 
buffer. The user must provide IOHDLR with 
the address of an appropriate I/O control 
block and the data if only one byte is to be 
written. IOHDLR will return a copy of the 
status byte and the data if only one byte is 
read. 

This subroutine is intended as an example 
of how to handle input and output in a 
device-independent manner. The I/O device 
table must be constructed using subroutines 
INITIO, which initializes the device list to 
empty, and ADDDL, which adds a device to 
the list. A specific example for the Apple II 
sets up the Apple II console as device 1 and 
the printer as device 2; a test routine reads a 
line from the console and echoes it to the 
console and the printer. 

A general purpose program will perform 
input or output by obtaining or constructing 
an I/O control block and then calling 
IOHDLR. Subroutine IOHDLR will then 
determine which device to use and how to 
transfer control to its I/O driver by using the 
I/O device table. 

Procedure: The program first initializes the 
status byte to zero, indicating no errors. It 



Registers Used 

1. By IOHDRL: All 

2. By INITL: A, F 

3. By ADDDL: All 

Execution Time 

1. For IOHDLR: 93 cycles overhead plus 

59 cycles for each unsuccessful match of a device 
number 

2. For INITL: 14 cycles 

3. For ADDDL: 48 cycles 
Program Size 

1. For IOHDLR: 101 bytes 

2. For INITL: 9 bytes 

3. For ADDDL: 21 bytes 

Data Memory Required: Three bytes anywhere 
in RAM plus six bytes on page 0. The three bytes 
anywhere in RAM hold an indirect address used 
to vector to an I/O subroutine (two bytes starting 
at address OPADR) and the X register (one byte 
at address SVXREG). The six bytes on page 
hold the starting address of the I/O control block 
(two bytes starting at address IOCB), the head of 
the list of devices (two bytes starting at address 
DVLST), and the starting address of the current 
device table entry (two bytes starting at address 
CURDEV). 



then searches the device table, looking for 
the device number in the I/O control block. If 
it does not find a match in the table, it exits 
with an appropriate error number in the 
status byte. If the program finds a device with 
the proper device number, it checks for a 
valid operation and transfers control to the 
appropriate routine from the entry in the 
device table. That routine must then transfer 
control back to the original calling routine. If 
the operation is invalid (the operation num- 
ber is too large or the starting address for the 
routine is zero), the program returns with an 
error indication in the status byte. 
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Subroutine INITDL initializes the device 
list, setting the initial link to zero. 

Subroutine ADDDL adds an entry to the 
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device list, making its address the head of the 
list and setting its link field to the old head of 
the list. 



Entry Conditions 

1. For IOHDLR: 

(A) = More significant byte of starting 

address of input/output control block 

(Y) = Less significant byte of starting 

address of input/output control block 

(X) = Byte of data if the operation is to write 

one byte. 

2. For INITL: None 

3. For ADDDL: 

(A) = More significant byte of starting 
address of a device table entry 
(Y) = Less significant byte of starting 
address of a device table entry. 



Exit Conditions 

1. For IOHDLR: 

(A) = I/O control block status byte if an 
error is found; otherwise, the routine exits to 
the appropriate I/O driver. 

(X) = Byte of data if the operation is to read 
one byte. 

2. For INITL: 

Device list header (addresses DVLST and 
DVLST+1) cleared to indicate empty list. 

3. For ADDDL: 

Device table entry added to list. 



Example 



In the example provided, we have the follow- 
ing structure: 

INPUT/OUTPUT OPERATIONS 



Operation 
Number 


Operation 


Index 



1 


Initialize device 
Determine input status 



1 


2 


Read 1 byte from input device 


2 


3 


Read N bytes from input device (normally 
one line) 


3 


4 


Determine output status 


4 


5 


Write one byte to output device 


5 


6 


Write N bytes to output device (normally 
one line) 


6 



INPUT/OUTPUT CONTROL BLOCK 

Contents 

Device number 
Operation number 
Status 

Less significant byte of starting address of 
buffer 

More significant byte of starting address of 
buffer 

Less significant byte of buffer length 

More significant byte of buffer length 
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DEVICE TABLE ENTRY 

Index Contents 

Less significant byte of link field (starting 

address of next element) 

1 More significant byte of link field (starting 

address of next element) 

2 Device number 

3 Less significant byte of starting address of 

device initialization routine 

4 More significant byte of starting address of 

device initialization routine 

5 Less significant byte of starting address of 

input status determination routine 

6 More significant byte of starting address of 

input status determination routine 

7 Less significant byte of starting address of 

input driver routine (read 1 byte only) 

8 More significant byte of starting address of 

input driver routine (read 1 byte only) 

9 Less significant byte of starting address of 

input driver routine (N bytes or 1 line) 

10 More significant byte of starting address of 

input driver routine (N bytes or 1 line) 

1 1 Less significant byte of starting address of 

output status determination routine 



12 More significant byte of starting address of 

output status determination routine 

13 Less significant byte of starting address of 

output driver routine (write 1 byte only) 

14 More significant byte of starting address of 

output driver routine (write 1 byte only) 

15 Less significant byte of starting address of 

output driver routine (N bytes or I line) 

16 More significant byte of starting address of 

output driver routine (N bytes or 1 line) 

If an operation is irrelevant or undefined 
for a particular device (e.g., output status 
determination for a keyboard or an input 
driver routine for a printer), the correspond- 
ing starting address in the device table must 
be set to zero (i.e., 0000 16 ). 

STATUS VALUES 
Value Description 

No errors 

1 Bad device number (no such device) 

2 Data available from input device, no such 
operation for I/O 

3 Output device ready 



Title 
Name: 



I/O Device table handler 
IOHDLR 



Purpose: 



Perform I/O in a device independent manner. 
This can only be implemented by accessing all 
devices in the same way using a I/O Control 
Block (IOCB) and a device table. The routines 
here will allow the following operations: 
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Operation number Description 

Initialize device 

1 Input status 

2 Read 1 byte 

3 Read N bytes 

4 Output status 

5 Write 1 byte 

6 Write N bytes 

Other operations that could be included are 
Open, Close, Delete, Rename, and Append which 
would support devices such as floppy disks. 

A IOCB will be an array of the following form: 

IOCB + = Device number 

IOCB + 1 = Operation number 

IOCB + 2 = Status 

IOCB + 3 = Low byte buffer address 

IOCB + 4 = High byte of buffer address 

IOCB + 5 = Low byte of buffer length 

IOCB + 6 = High byte of buffer length 

The device table is implemented as a linked 
list. Two routines maintain the list: INITIO, 
which initializes the device list to empty, and 
ADDDL, which adds a device to the list. 
A device table entry has the following form: 

DVTBL + = Low byte of link field 
DVTBL + 1 = High byte of link field 
DVTBL + 2 = Device number 
DVTBL + 3 = Low byte of initialize device 
DVTBL + 4 = High byte of initialize device 
DVTBL + 5 = Low byte of input status routine 
DVTBL + 6 = High byte of input status routine 
DVTBL + 7 = Low byte of input 1 byte routine 
DVTBL + 8 = High byte of input 1 byte routine 
DVTBL + 9 = Low byte of input N bytes routine 
DVTBL + 10= High byte of input N bytes routine 
DVTBL + 11= Low byte of output status routine 
DVTBL + 12= High byte of output status routine 
DVTBL + 13= Low byte of output 1 byte routine 
DVTBL +14= High byte of output 1 byte routine 
DVTBL + 15= Low byte of output N bytes routine 
DVTBL + 16= High byte of output N bytes routine 

Entry: Register A = High byte of IOCB 

Register Y = Low byte of IOCB 

Register X = For write 1 byte contains the byte 
to write, a buffer is not used. 

Exit: Register A = a copy of the IOCB status byte 

Register X = For read 1 byte contains the byte 

read, a buffer is not used. 
Status byte of IOCB is if the operation was 
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Time: 



Size: 



completed successfully; otherwise it contains 
the error number. 

Status value Description 

No errors 

1 Bad device number 

2 Input data available, no such 
operation 

3 . Output ready 



Registers used: All 



93 cycles minimum plus 59 cycles for each 
device in the list which is not the requested 
device. 

Program 131 bytes 
Data 3 bytes plus 

6 bytes in page zero 



;IOCB AND DEVICE TABLE EQUATES 



IOCBDN: 


• EQU 





IOCBOP: 


.EQU 


1 


IOCBST: 


.EQU 


2 


IOCBBA: 


.EQU 


3 


IOCBBL: 


.EQU ■ 


5 


DTLNK: 


.EQU 





DTDN : 


.EQU 


2 


DTSR: 


.EQU 


3 


;OPERATION NUM 


BER£ 


NUMOP: 


.EQU 


7 


INIT: 


.EQU 





ISTAT: 


.EQU 


1 


RlBYTE: 


• EQU 


2 


RNBYTE: 


.EQU 


3 


OS TAT: 


.EQU 


4 


W1BYTE: 


.EQU 


5 


WNBYTE: 


.EQU 


6 



IOCB DEVICE NUMBER 

IOCB OPERATION NUMBER 

IOCB STATUS 

IOCB BUFFER ADDRESS 

IOCB BUFFER LENGTH 

DEVICE TABLE LINK FIELD 

DEVICE TABLE DEVICE NUMBER 

BEGINNING OF DEVICE TABLE SUBROUTINES 



NUMBER OF OPERATIONS 
INITIALIZATION 
INPUT STATUS 
READ 1 BYTE 
READ N BYTES 
OUTPUT STATUS 
WRITE 1 BYTE 
WRITE N BYTES 



;PAGE ZERO DEFINITIONS 
IOCBA: .EQU ODOH 
DVLST: .EQU 0D2H 
CURDEV: .EQU 0D4H 



ADDRESS OF THE IOCB 

ADDRESS OF A LIST OF DEVICES 

STARTING ADDRESS OF THE CURRENT DEVICE TABLE ENTRY 



IOHDLR: 



;SAVE IOCB ADDRESS AND X REGISTER 
STA IOCBA+1 
STY IOCBA 
STX SVXREG 



SRCHLP: 



FOUND: 
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/•INITIALIZE STATUS BYTE TO ZERO (NO ERRORS) 

LDY #IOCBST 

LDA #0 

STA (IOCBA),Y ,-STATUS := 

;SEARCH DEVICE LIST FOR THIS DEVICE 

LDA DVLST ; START AT THE BEGINNING OF THE DEVICE LIST 

STA CURDEV 

LDA DVLST+1 

STA CURDEV+1 

;GET DEVICE NUMBER FROM IOCB TO REGISTER X 
LDY #IOCBDN 
LDA (IOCBA),Y 
TAX 

;CHECK IF AT END OF DEVICE TABLE LIST (LINK FIELD = 0000) 

LDA CURDEV 

ORA CURDEV+1 

BEQ BADDN ; BRANCH IF NO MORE DEVICES 

;CHECK IF THIS IS THE CORRECT DEVICE 

TXA 

LDY #DTDN 

CMP (CURDEV), Y ;COMPARE THIS DEVICE NUMBER WITH THE REQUESTED 

; NUMBER 
BEQ FOUND ;BRANCH IF THE DEVICE IS FOUND 

,-ADVANCE TO THE NEXT DEVICE TABLE ENTRY THROUGH THE LINK FIELD 
; MAKE CURRENT DEVICE = LINK 

;GET LOW BYTE OF LINK FIELD 
; SAVE ON STACK 

;GET HIGH BYTE OF LINK FIELD 

.-RECOVER LOW BYTE OF LINK FIELD 

.-CONTINUE SEARCHING 

; FOUND THE DEVICE SO VECTOR TO THE APPROPRIATE ROUTINE IF ANY 

,-CHECK THAT THE OPERATION IS VALID 

LDY #IOCBOP 

LDA (IOCBA).Y ;GET OPERATION NUMBER 

CMP #NUMOP 

BCS BADOP ; BRANCH IF OPERATION NUMBER IS TOO LARGE 

.-GET OPERATION ADDRESS (ZERO INDICATES INVALID OPERATION) 

ASL A ;MULTIPLY OPERATION NUMBER BY 2 TO INDEX 

CLC ; ADDRESSES 

ADC #DTSR ' ;ADD TO OFFSET FOR DEVICE TABLE SUBROUTINES 

TAY ;USE AS INDEX INTO DEVICE TABLE 



LDY 


#DTLNK 




LDA 


(CURDEV) 


,v 


PHA 






INY 






LDA 


(CURDEV) , 


,Y 


STA 


CURDEV+1 




PLA 






STA 


CURDEV 




JMP 


SRCHLP 
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LDA 


(CORDEV) ,Y 




STA 


OPADR 




INY 






LDA 


(CURDEV) ,Y 




STA 


OPADR+1 




ORA 


OPADR 




BEQ 


BADOP 




LDX 


SVXREG 




JMP 


(OPADR) 


BAODN : 


LDA 


#1 




BNE 


EREXIT 


BADOP: 








LDA 


#2 


EREXIT: 








LDY 


(tlOCBST 




STA 


(IOCBA) ,Y 




RTS 





; STORE LOW BYTE 



; STORE HIGH BYTE 

;CHECK FOR NON-ZERO OPERATION ADDRESS 

.-BRANCH IF OPERATION IS INVALID (ADDRESS = 0) 

;RESTORE X REGISTER 
;GOTO ROUTINE 



; ERROR CODE 1 — NO SUCH DEVICE 



; ERROR CODE 2 — NO SUCH OPERATION 



; STORE ERROR STATUS 



**************************************** 

ROUTINE: INITDL 

PURPOSE: INITIALIZE THE DEVICE LIST TO EMPTY 

ENTRY: NONE 

EXIT: THE DEVICE LIST SET TO NO ITEMS 

REGISTERS USED: A,F 

***************************************** 



INITDL: 



.-INITIALIZE DEVICE LIST TO TO INDICATE NO DEVICES 

LDA #0 

STA DVLST 

STA DVLST+1 

RTS 



******************************************* 

ROUTINE: ADDDL 

PURPOSE: ADD A DEVICE TO THE DEVICE LIST 

ENTRY: REGISTER A = HIGH BYTE OF A DEVICE TABLE ENTRY 

REGISTER Y = LOW BYTE OF A DEVICE TABLE ENTRY 
EXIT: THE DEVICE TABLE ADDED TO THE DEVICE LIST 
REGISTERS USED: ALL 
******************************************** 



ADDDL: 



;X,Y = NEW DEVICE TABLE ENTRY 
TAX 

;PUSH CURRENT HEAD OF DEVICE LIST ON TO STACK 
LDA DVLST+1 



PHA 

LDA DVLST 

PHA 
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;PUSH HIGH BYTE OF CURRENT HEAD OF DEVICE LIST 
;PUSH LOW BYTE ALSO 



;MAKE NEW DEVICE TABLE ENTRY THE HEAD OF THE DEVICE LIST 
STY DVLST 
STX DVLST+1 

;SET LINK FIELD OF THE NEW DEVICE TO THE OLD HEAD OF THE DEVICE LIST 
PLA 
, LDY #0 
STA (DVLST), Y ;STORE THE LOW BYTE 
PLA 
INY 
STA (DVLST), Y ;STORE THE HIGH BYTE 

RTS 



;DATA SECTION 
OPADR: .BLOCK 2 

SVXREG: .BLOCK 1 



.-OPERATION ADDRESS USED TO VECTOR TO 

; SUBROUTINE 

;TEMPORARY STORAGE FOR X REGISTER 



SC1006: 



SAMPLE EXECUTION: 

This test routine will set up the APPLE II console as 
device 1 and an APPLE II printer which is assumed to be 
in slot 1 as device 2. The test routine will then read 
a line from the console and echo it to the console and 
the printer. 



; EQUATE 

CR .EQU 

CBUF .EQU 



08DH 
0D6H 



; APPLE II CARRIAGE RETURN CHARACTER 
; STARTING ADDRESS OF I/O BUFFER 



,-INITIALIZE DEVICE LIST 
JSR INITDL 

;SET UP APPLE CONSOLE AS DEVICE 1 



LDA 


CONDVA+1 


LDY 


CONDVA 


JSR 


ADDDL 


LDA 


#INIT 


STA 


IOCB+IOCBOP 


LDA 


#1 


STA 


IOCB+IOCBDN 


LDA 


AIOCB+1 


LDY 


AIOCB 


JSR 


IOHDLR 



;ADD CONSOLE DEVICE TO DEVICE LIST 
^INITIALIZE OPERATION 



[DEVICE NUMBER = 1 



; PERFORM INITIALIZATION 
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;SET OP APPLE PRINTER AS DEVICE 2 



LDA 


PRTDVA+1 


LDY 


PRTDVA 


JSR 


ADDDL 


LDA 


#INIT 


STA 


IOCB+IOCBOP 


LDA 


#2 


STA 


IOCB+IOCBDN 


LDA 


AIOCB+1 


LDY 


AIOCB 


JSR 


IOHDLR 



;ADD PRINTER DEVICE TO DEVICE LIST 
.-INITIALIZE OPERATION 



;DEVICE NUMBER 



INITIALIZE PRINTER DEVICE 



TSTLP: 



•LOOP READING LINES FROM CONSOLE, AND ECHOING THEM TO 
• THE CONSOLE AND PRINTER UNTIL A BLANK LINE IS ENTERED 



LDA #1 

STA IOCB+IOCBDN 

LDA #RNBYTE 

STA IOCB+IOCBOP 

LDA #LENBUF 

STA IOCB+IOCBBL 

LDA #0 

STA IOCB+IOCBBL+1 

LDA AIOCB+1 

LDY AIOCB 

JSR IOHDLR 



SET DEVICE TO NUMBER 1 (CONSOLE) 

SET OPERATION TO READ N BYTES 

SET BUFFER LENGTH TO LENBUF 

THE HIGH BYTE OF LENBUF IS IN OUR EXAMPLE 

SET REGISTERS A,Y TO THE IOCB ADDRESS 

READ A LINE 



;ECHO THE LINE TO THE CONSOLE 

; DEVICE IS STILL CONSOLE FROM THE READ LINE ABOVE 

LDA IWNBYTE 

STA IOCB+IOCBOP 



LDA 
LDY 
JSR 



AIOCB+1 

AIOCB 

IOHDLR 



SET OPERATION TO WRITE N BYTES 

SET REGISTERS A,Y TO THE IOCB ADDRESS 

WRITE N BYTES 



;OUTPUT A CARRIAGE RETURN TO CONSOLE „»„„,„,, 

LDX #CR ;SET REGISTER X TO CARRIAGE RETURN CHARACTER 

LDA IWlBYTE ;SET OPERATION TO WRITE 1 BYTE 

STA IOCB+IOCBOP 

LDA AIOCB+1 ;SET REGISTERS A,Y TO THE IOCB ADDRESS 

LDY AIOCB 

JSR " IOHDLR ;WRITE 1 BYTE 



;ECHO THE LINE TO THE PRINTER ALSO 

LDA #2 

STA IOCB+IOCBDN 

LDA IWNBYTE 

STA IOCB+IOCBOP 

LDA AIOCB+1 

LDY AIOCB 

JSR IOHDLR 



SET DEVICE TO NUMBER 2 (PRINTER) 
SET OPERATION TO WRITE N BYTES 
SET REGISTERS A,Y TO THE IOCB ADDRESS 
WRITE N BYTES 



•WRITE A CARRIAGE RETURN TO THE PRINTER 

LDX #8DH ;SET REGISTER X TO CARRIAGE RETURN CHARACTER 

LDA IWlBYTE ;SET OPERATION TO WRITE 1 BYTE 
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STA 
LDA 
LDY 
JSR 

LDA 
LDY 
ORA 
BNE 

BRK 
JMP 



IOCB+IOCBOP 
AIOCB+1 
AIOCB 
IOHDLR 



SET REGISTERS A,Y TO THE IOCB ADDRESS 
WRITE 1 BYTE 
GET LOW BYTE 



IOCB+IOCBBL 

#1 

IOCB+IOCBBL, Y ;OR WITH HIGH BYTE 

TSTLP ;BRANCH IF BUFFER LENGTH IS NOT ZERO 

SC1006 



;IOCB FOR PREFORMING THE 10 



AIOCB: 


.WORD 


IOCB 


IOCB 


.BLOCK 


1 




•BLOCK 


1 




. BLOCK 


1 




.WORD 


BUFFER 




.WORD 


LENBUF 


;BUFFER 






LENBUF 


.EQU 


127 


BUFFER 


.BLOCK 


LENBUF 


; DEVICE 


TABLE ENTRIES 


CONDVA: 


• WORD 


CONDV 


CONDV: 


.WORD 







• BYTE 


1 




• WORD 


CINIT 




.WORD 


CISTAT 




• WORD 


CIN 




.WORD 


CINN 




.WORD 


COSTAT 




.WORD 


COUT 




.WORD 


COUTN 


PRTDVA: 


.WORD 


PRTDV 


PRTDV: 


.WORD 







.BYTE 


2 




.WORD 


PINIT 




.WORD 







.WORD 







.WORD 







.WORD 


POSTAT 




.WORD 


POUT 




.WORD 


POUTN 



;ADDRESS OF THE IOCB 

; DEVICE NUMBER 

; OPERATION NUMBER 

; STATUS 

.•BUFFER ADDRESS 

; BUFFER LENGTH 



;CONSOLE 
;LINK FI 
;DEVICE 
; CONSOLE 
; CONSOLE 
; CONSOLE 
; CONSOLE 
;CONSOLE 
; CONSOLE 
; CONSOLE 



DEVICE ADDRESS 
ELD 
1 

INITIALIZE 

INPUT STATUS 
INPUT 1 BYTE 
INPUT N BYTES 
OUTPUT STATUS 
OUTPUT 1 BYTE 
OUTPUT N BYTES 



; PRINTER DEVICE ADDRESS 

;LINK FIELD 

; DEVICE 2 

;PRINTER INITIALIZE 

;N0 PRINTER INPUT STATUS 

;N0 PRINTER INPUT I BYTE 

;N0 PRINTER INPUT N BYTES 

; PRINTER OUTPUT STATUS 

; PRINTER OUTPUT 1 BYTE 

; PRINTER OUTPUT N BYTES 



; CONSOLE I/O ROUTINES 
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.-CONSOLE INITIALIZE 
CINIT: 

LDA #0 

RTS 



;A = STATUS NO ERRORS 

;NO INITIALIZATION NECESSARY 



.-CONSOLE INPUT STATUS (READY IS BIT 7 OF ADDRESS 0C000H) 
CISTAT: 



CNONE: 
CIS1 



LDA 
BPL 
LDA 
BNE 



LDA 

LDY 
STA 
RTS 



0C000H 
CNONE 
#2 
CISl 



#0 



#IOCBST 
(IOCBA) ,Y 



GET KEYBOARD STATUS BYTE 
BRANCH IF CHARACTER IS NOT READY 
INDICATE CHARACTER IS READY 
BRANCH ALWAYS TAKEN 



;NOT READY 

,-STORE STATUS AND LEAVE IT IN REGISTER A 



; CONSOLE READ 1 BYTE 
CIN: 

LDA C000H 

BPL CIN 

TXA 

LDA #0 

RTS 



WAIT FOR CHARACTER TO BECOME READY 
MOVE CHARACTER TO REGISTER X 
STATUS = NO ERRORS 



; CONSOLE READ N BYTES 

CINN - 

,-READ LINE USING THE APPLE MONITOR GETLN ROUTINE AT 0FD6AH 

3 3H = PROMPT LOCATION 

200H = BUFFER ADDRESS 



CINNl: 



LDA 
STA 
JSR 



#"?" OR 80H 

033H 

0FD6AH 



SET BIT 7 

SET UP APPLE PROMPT CHARACTER 

CALL APPLE MONITOR GETLN ROUTINE 



; VERIFY THAT THE NUMBER OF BYTES READ WILL FIT INTO THE CALLERS BUFFER 
LDY #IOCBBL+l 

(IOCBA), Y ;GET HIGH BYTE 

CINN 1 ;BRANCH IF HIGH BYTE IS NOT ZERO 



LDA 
BNE 
DEY 
TXA 
CMP 
BCC 

BEQ 

LDA 
TAX 



TXA 
STA 
LDA 
INY 
STA 



(IOCBA) ,Y 
CINNl 

CINNl 

(IOCBA) ,Y 



(IOCBA) ,Y 
#0 

(IOCBA) ,Y 



BRANCH IF THE NUMBER OF CHARACTERS READ IS 

LESS THAN THE BUFFER LENGTH 
BRANCH IF THE LENGTHS ARE EQUAL 

OTHERWISE TRUNCATE THE NUMBER OF CHARACTERS 
; READ TO THE BUFFER LENGTH 

;SET BUFFER LENGTH TO NUMBER OF CHARACTERS READ 
;ZERO UPPER BYTE OF BUFFER LENGTH 
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;MOVE THE DATA FROM APPLE BUFFER AT 200H TO CALLER'S BUFFER 



LDY 
LDA 
STA 
INY 
LDA 
STA 
TXA 
BEQ 
LDY 



#IOCBBA 
(IOCBA),Y 
CBUF 

(IOCBA) ,Y 
CBUF+1 

CINN3 
#0 



;GET POINTER TO CALLER'S BUFFER FROM IOCB 
;SAVE POINTER ON PAGE ZERO 
;SET UP MSB OF POINTER ALSO 

;EXIT IF NO BYTES TO MOVE 



CINN2: 



;NOW MOVE THE DATA TO CALLER'S BUFFER 



LDA 
STA 
INY 
DEX 
BNE 



200H,Y 
(CBUF) ,Y 



;GET A BYTE FROM APPLE BUFFER 
;MOVE BYTE TO CALLER'S BUFFER 



CINN3: 



CINN2 ; COUNT BYTES 

;GOOD STATUS (0) - NO ERRORS 



LDA 
RTS 



#0 



;NO ERRORS 



.•CONSOLE OUTPUT STATUS 
COSTAT: 

LDA #3 

RTS 



; STATUS IS ALWAYS READY TO OUTPUT 



; CONSOLE OUTPUT 1 BYTE 
COUT: 

TXA 
COUT1: 

JSR OFDEDH 

LDA #0 

RTS 

COUT1A: .WORD COUT1 



; APPLE CHARACTER OUTPUT ROUTINE 
; STAT US = NO ERRORS 



; ADDRESS OF OUTPUT ROUTINE TO BE PLACED IN A,Y 



;CONSOLE OUTPUT N BYTES 

COUTN: 

LDA COUT1A+1 

LDY COUT1A 

JSR OUTN 

LDA #0 
RTS 



;A,Y = ADDRESS OF OUTPUT ROUTINE 
;CALL OUTPUT N CHARACTERS 
; STATUS = NO ERRORS 



; PRINTER ROUTINES 

; ASSUME PRINTER CARD IS IN SLOT 1 
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.-PRINTER INITIALIZE 
PINIT: 

LDA #0 

RTS 



; NOTHING TO DO, RETURN NO ERRORS 



; PRINTER OUTPUT STATUS 
POSTAT: 

LDA #0 

RTS 



;ASSUME IT IS ALWAYS READY 



; PRINTER OUTPUT 1 BYTE 
POUT: 

TXA 
POUTl: 

JSR 0C107H 

LDA #0 

RTS 

POUT1A: .WORD POUTl 



.-CHARACTER OUTPUT ROUTINE 



;ADDRESS OF CHARACTER OUTPUT ROUTINE TO BE 
; PLACED IN A.Y 



; PRINTER OUTPUT N BYTES 

POUTN: 

LDA POUTlA+1 

LDY POUT1A 

JSR OUTN 

LDA #0 
RTS 



A,Y = ADDRESS OF OUTPUT ROUTINE 
CALL OUTPUT N CHARACTERS 
NO ERRORS 



***************************************** 
ROUTINE: OUTN 

^^REGISTER A C = H h"h1y?e OF CHARACTER OUTPUT SUBROUTINE ADDRESS 
REGISTER Y = LOW BYTE OF CHARACTER OUTPUT SUBROUTINE ADDRESS 
IOCBA = STARTING ADDRESS OF AN IOCB 

EXIT: DATA OUTPUT 

REGISTERS USED: ALL 

****************************************** 



OUTN: 



; STORE ADDRESS OF THE CHARACTER OUTPUT SUBROUTINE 

STA COSR+1 

STY COSR 

;GET OUTPUT BUFFER ADDRESS FROM IOCB, SAVE ON PAGE ZERO 

LDY #IOCBBA 

LDA (IOCBA), Y 

STA CBUF 

INY 

LDA (IOCBA) ,Y 

STA CBUF+1 
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OUTLP: 

LPO: 
LP1: 



LP2: 



DECLS: 



OUT 3: 



;GET BUFFER LENGTH FROM IOCB, EXIT IF IT IS ZERO 



LDY 
LDA 
STA 
INY 
LDA 
STA 
ORA 
BEQ 



#IOCBBL 
(IOCBA) ,Y 
BUFLEN 

(IOCBA), Y 
BUFLEN+1 
BUFLEN 
OUT3 



;BRANCH IF BUFFER LENGTH IS ZERO 



;START AT BEGINNING OF BUFFER 



LDA 
STA 

LDY 
LDA 
JSR 
JMP 

JMP 



#0 
IDX 

IDX 

(CBUF) ,Y 
LPO 
LP1 

(COSR) 



;GET NEXT CHARACTER FROM BUFFER 
;WRITE CHARACTER TO OUTPUT DEVICE 



;OUTPUT THE CHARACTER VIA THE CURRENT 
; OUTPUT SUBROUTINE 



; INCREMENT TO THE NEXT CHARACTER IN THE BUFFER 

INC IDX 

BNE LP2 

INC CBUF+1 INCREMENT THE HIGH BYTE IS NECESSARY 

; DECREMENT BUFFER LENGTH, CONTINUE LOOPING IF IT IS NOT ZERO 



LDA 
BNE 
DEC 
DEC 
BNE 
LDA 
BNE 



RTS 



BUFLEN 

DECLS 

BUFLEN+1 

BUFLEN 

OUTLP 

BUFLEN+1 

OUTLP 



; BORROW FROM HIGH BYTE IF NECESSARY 
; ALWAYS DECREMENT LOW BYTE 



CONTINUE UNLESS ALL CHARACTERS SENT 



COSR: 


.WORD 





BUFLEN: 


.WORD 





IDX: 


.BYTE 






;ADDRESS OF THE CHARACTER OUTPUT SUBROUTINE 
.-TEMPORARY BUFFER LENGTH 
.•TEMPORARY INDEX 



• END 



Initialize I/O Ports (IOPORTS) 



10G 



Initializes a set of I/O ports from an array 
of port addresses and initial values. Examples 
are given of initializing programmable I/O 
devices such as the 6520 Peripheral Interface 
Device (Adapter), the 6522 Versatile Inter- 
face Adapter, the 6530 Multifunction 
Device, the 6532 Multifunction Device, the 
6551 Asychronous Communications Device 
Adapter, and the 6850 Asynchronous Com- 
munications Device Adapter. 

This subroutine is intended as a 
generalized method for initializing I/O sec- 
tions. The initialization may involve data 
.ports, data direction registers that determine 
whether bits are inputs or outputs, control or 
command registers that determine the 
operating modes of programmable devices, 
counters (in timers), priority registers, and 
other external registers or storage locations. 

Some of the tasks the user may perform 
with this routine are: 

1. Assign bidirectional I/O lines as inputs 
or outputs. 

2. Initialize output ports to known starting 
values. 

3. Enable or disable interrupts from pe- 
ripheral chips. 

4. Determine operating modes, such as 
whether inputs are latched, whether strobes 
are produced, how priorities are assigned, 
whether timers operate continuously or only 
on demand, etc. 

5. Load initial counts into timers. 



Registers Used: All 

Execution Time: 16 cycles overhead plus 52 
cycles per port entry. If, for example, NUMBER 
OF PORT ENTRIES = 10, execution time is 
52 * 10 + 16 = 520 + 16 = 536 cycles. 

Program Size: 40 bytes plus the size of the table 
(three bytes per entry) 

Data Memory Required: Four bytes on page 0, 
two for a pointer to the array (starting at address 
ARYADR, 00D0 16 in the listing) and two for a 
pointer to the port (starting at address PRTADR, 
00D2, 6 in the listing). 



6. Select bit rates for communications. 

7. Clear or reset devices that are not tied 
to the overall system reset line. 

8. Initialize priority registers or assign 
initial priorities to interrupts or other opera- 
tions. 

9. Initialize vectors used in servicing 
interrupts, DMA requests, and other inputs. 

Procedure: The program loops through the 
specified number of ports, obtaining the port 
address and the initjal value from the array 
and storing the initial value in the port 
address. This procedure does not depend on 
the type of devices used in the I/O section or 
on the number of devices. Additions and 
deletions can be made by means of appropri- 
ate changes in the array and in the parameters 
of the routine, without changing the routine 
itself. 



454 
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Entry Conditions 

(A) = More significant byte of starting 
address of array of ports and initial values 

(Y) = Less significant byte of starting 
address of array of ports and initial values 

(X) = Number of entries in array (number 
of ports to initialize). 



Exit Conditions 



All ports initialized. 



Example 



Data: Number of ports to initialize = 3 
Array elements are: 

High byte of port 1 address 
Low byte of port 1 address 
Initial value for port 1 
High byte of port 2 address 
Low byte of port 2 address 
Initial value for port 2 
High byte of port 3 address 
Low byte of port 3 address 
Initial value for port 3 



Result: Initial value for port 1 stored in port 1 
address 

Initial value for port 2 stored in port 2 
address 

Initial value for port 3 stored in port 3 
address. 

Note that each element in the array consists 
of 3 bytes containing: 
Less significant byte of port address 
More significant byte of port address 

Initial value for port 



Title 
Name: 



Purpose: 
Entry: 



Initialize I/O ports 
I PORTS 



Initialize I/O ports from an array of port 
addresses and values. 

Register A = High byte of array address 
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Register Y = Low byte of array address 
Register X = Number of ports to initialize 

The array consists of 3 byte elements. 
array+0 = High byte of port 1 address 
array+1 = Low byte of port 1 address 
array+2 = Value to store in port 1 address 
array+3 = High byte of port 2 address 
array+4 = Low byte of port 2 address 
array+5 = Value to store in port 2 address 



Exit: None 

Registers used: All 
Time: 



Size: 



16 cycles overhead plus 

52 cycles per port to initialize 

Program 40 bytes 

Data 2 bytes in page zero 



;PAGE ZERO POINTERS 
ARYADR .EQU 0D0H 
PRTADR .EQU 0D2H 

I PORTS: 



; ARRAY ADDRESS 
;P0RT ADDRESS 



LOOP: 



;SAVE STARTING ADDRESS OF INITIALIZATION ARRAY 
STA ARYADR+1 
STY ARYADR 

;EXIT IF THE NUMBER OF PORTS IS ZERO 

TXA ;SET FLAGS 

BEQ EXIT1P ;EXIT IF NUMBER OF PORTS = 

;LOOP PICKING UP THE PORT ADDRESS AND 

; SENDING THE VALUE UNTIL ALL PORTS ARE INITIALIZED 

;GET PORT ADDRESS FROM ARRAY AND SAVE IT 

LDY #0 

LDA (ARYADR), Y ;GET LOW BYTE OF PORT ADDRESS 

STA PRTADR 

INY 

LDA (ARYADR), Y * ;GET HIGH BYTE OF PORT ADDRESS 

STA PRTADR+1 

;GET THE INITIAL VALUE AND SEND IT TO THE PORT 

INY 

LDA (ARYADR), Y ;GET INITIAL VALUE 

LDY #0 

STA (PRTADR), Y {OUTPUT TO PORT 
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LOOP1: 



; POINT TO THE NEXT ARRAY ELEMENT 

LDA ARYADR 

CLC 

ADC #3 ;ADD 3 TO LOW BYTE OF THE ADDRESS 

STA ARYADR 

BCC LOOP1 

INC ARYADR+1 ; INCREMENT HIGH BYTE IF A CARRY 



EXITIP: 



;DECREMENT NUMBER OF PORTS TO DO, EXIT WHEN ALL PORTS ARE INITIALIZED 

DEX 

BNE LOOP 



RTS 



SAMPLE EXECUTION: 



; INITIALIZE 




; 6520 PIA 




; 6522 VIA 




; 653 ROM/RAM/IO/TIMER 

6532 RAM/IO/TIMER 
; 6850 SERIAL INTERFACE(ACIA) 

6551 SERIAL INTERFACE(ACIA) 
SC1007: 


LDA 


ADRARY+1 


LDY 


ADRARY 


LDX 


SZARY 


JSR 


IPORTS 


BRK 





; INITIALIZE THE PORTS 



ARRAY: 



INITIALIZE 6520, ASSUME BASE ADDRESS FOR REGISTERS AT 2000H 

; PORT A = INPUT 

; CA1 = DATA AVAILABLE, SET ON LOW TO HIGH TRANSITION, NO INTERRUPTS 

; CA2 = DATA ACKNOWLEDGE HANDSHAKE 

.WORD 2001H ;6520 CONTROL REGISTER A ADDRESS 

• BYTE 0O0O0OO0B ; INDICATE NEXT ACCESS TO DATA DIRECTION 

; REGISTER (SAME ADDRESS AS DATA REGISTER) 
.WORD 2000H ;6520 DATA REGISTER A ADDRESS 

.BYTE 00O0000OB ;ALL BITS = INPUT N 

.WORD 2001H ;6520 CONTROL REGISTER A ADDRESS 

.BYTE 00100110B ;SET UP CAl,CA2 AND SET BIT 2 TO DATA REGISTER 

PORT B = OUTPUT 

CB1 = DATA ACKNOWLEDGE, SET ON HIGH TO LOW TRANSITION, NO INTERRUPTS 

CB2 = DATA AVAILABLE, CLEARED BY WRITING DATA REGISTER B 

SET TO 1 BY HIGH TO LOW TRANSITION ON CB1 
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.WORD 
• BYTE 



2003H 
00000000B 



.WORD 2002H 

.BYTE 11111111B 

.WORD 2003H 

.BYTE 00100100B 



6520 CONTROL REGISTER B ADDRESS 
INDICATE NEXT ACCESS TO DATA DIRECTION 

REGISTER 
6520 DATA REGISTER B ADDRESS 
ALL BITS = OUTPUT 
6520 CONTROL REGISTER B ADDRESS 
SET UP CB1,CB2 AND SET BIT 2 TO DATA REGISTER 



.-INITIALIZE 6522, ASSUME BASE ADDRESS FOR REGISTERS AT 2010H 



PORT 
; CA1, 
; PORT 
; CB1 
; CB2 
.WORD 
.BYTE 
• WORD 
.BYTE 
.WORD 
.BYTE 
.WORD 
.BYTE 



A = BITS 0..3 = OUTPUT, BITS 4.. 7 = INPUT 

CA2 ARE NOT USED. 

B = LATCHED INPUT 

= DATA AVAILABLE, SET ON LOW TO HIGH TRANSITION 

= DATA ACKNOWLEDGE HANDSHAKE 



2013H 

00001111B 

2012H 

00000000B 

201CH 

10010000B 

201BH 

00000010B 



INITIALIZE 6530, 

; PORT A = OUTPUT 

; PORT B = INPUT 

.WORD 2021H 

.BYTE 11111111B 

.WORD 2023H 

.BYTE 00000000B 



6522 DATA DIRECTION REGISTER A 

BITS 0..3 = OUTPUT, 4.. 7 = INPUT 

6522 DATA DIRECTION REGISTER B 

ALL BITS = INPUT 

6522 PERIPHERAL CONTROL REGISTER 

SET UP CBl, CB2 

6522 AUXILIARY CONTROL REGISTER 

MAKE PORT B LATCH THE INPUT DATA 



ASSUME BASE ADDRESS FOR REGISTERS AT 2020H 



6530 DATA DIRECTION REGISTER A 
ALL BITS = OUTPUT 
6530 DATA DIRECTION REGISTER B 
ALL BITS = INPUT 



INITIALIZE 6532, ASSUME BASE ADDRESS FOR REGISTERS AT 2030H 
• PORT A = BITS 0..6 = OUTPUT 

INPUT FOR PORT B DATA AVAILABLE. 



■ ; PORT B 
.WORD 
.BYTE 
• WORD 
.BYTE 



BIT 7 = 
INPUT 

2031H 

01111111B 

2033H 

00000000B 



6532 DATA DIRECTION REGISTER A 
BITS 0..6 = OUTPUT, BIT 7 = INPUT 
6532 DATA DIRECTION REGISTER B 
ALL BITS = INPUT 



INITIALIZE 6551, ASSUME BASE ADDRESS FOR REGISTERS' AT 2040H 

; 8 BIT DATA, NO PARITY 

; 1 STOP BIT 

; 9600 BAUD FROM ON BOARD BAUD RATE GENERATOR 

• Hf) TNTFRRUPTS 

'WORD 2041H ;WRITE TO 6551 STATUS REGISTER TO RESET 

'byte ;THIS VALUE COULD BE ANYTHING 

'WORD 2042H ;6551 CONTROL REGISTER 

*BYTE 10011110B ;1 STOP, 8 BIT DATA, INTERNAL 9600 BAUD 

WORD 2043H ;6551 COMMAND REGISTER 

.'BYTE 00000011B ;NO PARITY, NO ECHO, NO RECEIVER INTERRUPT, 

;DTR LOW 

.-INITIALIZE 6850, ASSUME BASE ADDRESS FOR REGISTERS AT 2050H 
; 8 BIT DATA, NO PARITY 
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1 STOP BIT 

DIVIDE MASTER CLOCK BY 

NO INTERRUPTS 



WORD 
BYTE 
WORD 
BYTE 



ENDARY: 
ADRARY: .WORD 
SZARY: .BYTE 



2050H 
00000011B 
2050H 
00010101B 



WRITE TO 6850 CONTROL REGISTER 

PERFORM A MASTER RESET 

6850 CONTROL REGISTER 

NO INTERRUPTS, RTS LOW, 

8 BITS, 1 STOP, DIVIDE BY 1 



ARRAY 
(ENDARY - ARRAY) / 3 



;END OF ARRAY 

; ADDRESS OF ARRAY 

,-NUMBER OF PORTS TO INITIALIZE 



.END 



; PROGRAM 



Delay Milliseconds (DELAY) 



10H 



Provides a delay of between 1 and 255 
milliseconds, depending on the parameter 
supplied. The user must calculate the value 
MSCNT to fit a particular computer. 

MSCENT = (100/CYCLETIME - 10)/5 
= 200/CYCLETIME - 2 

CYCLETIME is the number of micro- 
seconds per clock period for a particular com- 
puter (1 for KIM-1, SYM-1, and AIM-65, 
0.9799269 for APPLE II™). 

Procedure: The program simply counts 
down the index registers for the appropriate 
amount of time as determined by the user- 



Registers Used: X, Y, P 

Execution Time: 1 millisecond * (Y). If (Y) = 0, 
the minimum time is 17 cycles including a JSR 
instruction. 

Program Size: 156 bytes 

Data Memory Required: None 

Special Case: (Y) = causes an exit with a 
minimum execution time of 17 cycles including a 
JSR instruction. (Y) = and (X) is unchanged. 



supplied constant. A few extra NOPs take 
account of the call instruction, the return 
instruction, and the routine overhead. 



Entry Conditions 

(Y) = Number of milliseconds to delay 
(lto 255). 



Exit Conditions 

Returns after the specified number of milli- 
seconds with (X) = (Y) = 0. 



Example 



Data: (Y) = number of milliseconds = 2A :6 = 42 10 

Result: Software delay of 2A| 6 <42, ) milliseconds, 

assuming that user supplies the proper value 
of MSCNT. 



Title 
Name: 



Delay milliseconds 
Delay 



Purpose: 



Delay from 1 to 255 milliseconds 
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Entry: Register Y = number of milliseconds to delay. 

Exit: Returns to calling routine after the 

specified delay. 

Registers used: X,Y,P 

Time: 1 millisecond * Register Y. 

If Y = then the minimum time is 17 
cycles including the JSR overhead. 

Size: Program 29 bytes 

Data NONE 



HERE IS THE FORMULA FOR COMPUTING THE DELAY COUNTS MSCNT1 AND MSCNT2 

MSCNT = 200/CYCLETIME - 2 WHERE CYCLE TIME IS THE LENGTH 

OF A PARTICULAR COMPUTER'S CLOCK PERIOD IN MICROSECONDS 

EXAMPLES: KIM, SYM, AIM HAVE 1 MHz CLOCKS, SO MSCNT = 198, 
APPLE HAS A 1.023 MHz CLOCK, SO MSCNT = 202. 

IN THE LAST ITERATION, WE REDUCE THE COUNT BY 3 (MSCNT) 
TO DELAY 1 MILLISECOND LESS THE OVERHEAD WHERE THE 
OVERHEAD IS: 

6 CYCLES ==> JSR DELAY 

2 CYCLES ==> CPY #0 

2 CYCLES ==> BEQ EXIT (ASSUMED NOT TAKEN) 

2 CYCLES ==> NOP 

2 CYCLES ==> CPY #1 

3 CYCLES ==> BNE DELAYA (ASSUMED TAKEN) 
2 CYCLES ==> DEY 

-1 CYCLE ==> THE LAST BNE DELAY1 NOT TAKEN 

2 CYCLES ==> LDX #MSCNT2 

-1 CYCLE ==> THE LAST BNE DELAY2 NOT TAKEN 

6 CYCLES ==> RTS 



25 CYCLES OVERHEAD 

EQUATES 

1 MHZ CLOCK 
MSCNT .EQU 0C6H ;198 TIMES THROUGH DELAY1 

APPLE (1.023 MHZ) 

;202 TIMES THROUGH DELAY1 



MSCNT 


.EQU 


OCAH 


DELAY: 








CPY 


#0 




BEQ 


EXIT 




NOP 





'2 CYCLES 

2 CYCLES (EXIT IF DELAY = 0) 
2 CYCLES (TO MAKE OVERHEAD = 25 CYCLES) 
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;IF DELAY IS TO BE 1 MILLISECOND THEN GOTO LASTl 

; THIS LOGIC IS DESIGNED TO BE 5 CYCLES THROUGH EITHER PATH 





CPY 


#1 ; 


2 CYCLES 




BNE 


DELAYA 


3 CYCLES (IF TAKEN ELSE 2 




JMP 


LASTl ; 


3 CYCLES 




; DELAY 


1 MILLISECOND TIMES (Y-l) 


DELAYA: 










DEY 




2 CYCLES (PREDECREMENT Y) 


DELAY 0: 










LDX 


IMSCNT 


2 CYCLES 


DELAY 1: 










DEX 




2 CYCLES 




BNE 


DELAY 1 


3 CYCLES 




NOP 




■ 2 CYCLES 




NOP 




2 CYCLES 




DEY 




; 2 CYCLES 




BNE 


DELAY 


3 CYCLES 



LASTl: 



DELAY 2: 



; DELAY THE LAST TIME 25 CYCLES LESS TO TAKE THE 
; CALL, RETURN, AND ROUTINE OVERHEAD INTO ACCOUNT 
LDX #MSCNT-3 ; 2 CYCLES 



DEX 
BNE 



DELAY 2 



2 CYCLES 

3 CYCLES 



EXIT: 



RTS 



6 CYCLES 



SAMPLE EXECUTION: 



SC1008: 



QTRSCD: 



DELAY 10 SECONDS 

CALL DELAY 40 TIMES AT 250 MILLISECONDS EACH 
LDA #40 ;40 TIMES (28 HEX) 
STA COUNT 

; DELAY 1/4 SECOND 



LDY 


#250 


;250 MILLISECONDS (FA HEX) 


JSR 


DELAY 




DEC 


COUNT 




BNE 


QTRSCD 




BRK 




;STOP AFTER 10 SECONDS 


JMP 


SC1008 
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;DATA SECTION 
COUNT . BYTE 



.END 



; PROGRAM 



Unbuffered Interrupt-Driven Input/Output 
Using a 6850 ACIA (SINTIO) 



11A 



Performs interrupt-driven input and out- 
put using a 6850 ACIA and single-character 
input and output buffers. Consists of the 
following subroutines: 

1. INCH reads a character from the input 
buffer. 

2. INST determines whether there is a 
character available in the input buffer. 

3. OUTCH writes a character into the out- 
put buffer. 

4. OUTST determines whether the output 
buffer is full. 

5. INIT initializes the 6850 ACIA, the 
interrupt vectors, and the software flags 
(used to transfer data between the main pro- 
gram and the interrupt service routine). 

6. IOSRVC determines which interrupt 
occurred and provides the proper input or 
output service. In response to the input inter- 
rupt, it reads a character from the ACIA into 
the input buffer. In response to the output 
interrupt, it writes a character from the out- 
put buffer into the ACIA. 

Examples describe a 6850 ACIA on an 
Apple II serial I/O board in slot 1. 

Procedures: 

1. INCH waits for a character to become 
" available, clears the Data Ready flag 

(RECDF), and loads the character into the 
accumulator. 

2. INST sets the Carry flag from the Data 
Ready flag (memory location RECDF). 

3. OUTCH waits for the character buffer 
to empty, places the character in the buffer, 
and sets the Character Available flag 
(TRNDF). 



Registers Use 


d: 


1. INCH 


A, F, Y 


2. INST 


A, F 


3. OUTCH 


A, F, Y 


4. OUTST 


A, F 


5. INIT 


A, F 



Execution Time: 

1. INCH 33 cycles if a character is available 

2. INST 12 cycles 

3. OUTCH 92 cycles if the output 
buffer is empty and the ACIA is ready to send 
data 

4. OUTST 12 cycles 

5. INIT 73 cycles 

6. IOSRVC 39 cycles to service an input 
interrupt, 59 cycles to service an output interrupt, 
24 cycles to determine interrupt is from another 
device 

Program Size: 168 bytes 

Data Memory Required: Six bytes anywhere in 
RAM. One byte for the received data (at address 
RECDAT), one byte for the receive data flag (at 
address RECDF), one byte for the transmit data 
(at address TRNDAT), one byte for the transmit 
data flag (at address TRNDF), and two bytes for 
the address of the next interrupt service routine 
(starting at address NEXTSR). 



4. OUTST sets the Carry flag from the 
Character Available flag (memory location 
TRNDF). 

5. INIT clears the software flags, sets up 
the interrupt vector, resets the ACIA (a 
master reset, since the ACIA has no reset 
input), and initializes the ACIA by placing 
the appropriate value in its control register 
(input interrupts enabled, output interrupts 
disabled). 

6. IOSRVC determines whether the inter- 
rupt was an input interrupt (bit of the ACIA 
status register = 1), an output interrupt (bit 
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1 of the ACIA status register = 1), or the 
product of some other device. If the input 
interrupt occurred, the program reads the 
data, saves it in memory, and sets the Data 
Ready flag (RECDF). If the output interrupt 
occurred, the program determines whether 
data is available. If not, the program simply 
disables the output interrupt. If data is availa- 
ble, the program sends it to the ACIA, clears 
the Character Available flag (TRNDF), and 
enables both the input and the output inter- 
rupts. 

The only special problem in using these 
routines is that an output interrupt may occur 
when no data is available. We cannot ignore 
the interrupt or it will assert itself 
indefinitely, creating an endless loop. The 
solution is to disable output interrupts. But 
now we create a new problem when data is 
ready to be sent. That is, if we have disabled 
output interrupts, the system cannot learn 
from an interrupt that the ACIA is ready to 
transmit. The solution to this is to create an 
additional, non-interrupt-driven entry to the 
routine that sends a character to the ACIA. 
Since this entry is not caused by an interrupt, 
we must check the ACIA to see that its out- 
put register is actually empty before sending 
it a character. 

The special sequence of operations is the 
following: 

1. Output interrupt occurs before new 
data is available (that is, the ACIA becomes 
ready for data). The response is to disable the 
output interrupt, since there is no data to be 
sent. Note that this sequence will not occur 
initially, since INIT disables the output inter- 
rupt. Otherwise, the output interrupt would 
occur immediately, since the ACIA surely 
starts out empty and therefore ready to 
transmit data. 



2. Output data becomes available. That is, 
the system now has data to transmit. But 
there is no use sitting back and waiting for the 
output interrupt, since it has been disabled. 

3. The main program calls the routine 
(OUTDAT) that sends data to the ACIA. 
Checking the ACIA's status shows that it is, 
in fact, ready to transmit a character (it told 
us it was when the output interrupt occur- 
red). The routine then sends the character 
and reenables the interrupts. 

The basic problem here is that output 
devices may request service before the com- 
puter is ready for them. That is, the devices 
can accept data but the computer has nothing 
to send. In particular, we have an initializa- 
tion problem caused by output interrupts 
asserting themselves and expecting service. 
Input devices, on the other hand, request 
service only when they have data. They start 
out in the not ready state; that is, an input 
device has no data to send initially, while the 
computer is ready to accept data. Thus output 
devices cause more initialization and 
sequencing problems in interrupt-driven 
systems than do input devices. 

Our solution may, however, result in an 
odd situation. Let us assume that the system 
has some data ready for output but the ACIA 
is not yet ready for it. Then the system must 
wait with interrupts disabled for the ACIA to 
become ready; that is, an interrupt-driven 
system must disable its interrupts and wait 
idly, polling the output device. We could 
eliminate this drawback by keeping a soft- 
ware flag that would be changed when the 
output interrupt occurred at a time when 
there was no data. Then the system could 
check the software flag and determine 
whether the output interrupt had already 
occurred. (See Subroutine 11C.) 
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Entry Conditions 



1. INCH: 

2. INST: 

3. OUTCH: 
accumulator 

4. OUTST: 

5. INIT: 



none 
none 
character to transmit in 

none 
none 



Exit Conditions 

1. INCH: character in accumulator 

2. INST: Carry flag = if no character 
is available, 1 is a character is available 

3. OUTCH: none 

4. OUTST: Carry flag = if output 
buffer is empty, 1 if it is full. 



Title 
Name: 



Purpose: 



Entry: 



Exit: 



Simple interrupt input and output using a 6850 

ACIA and a single character buffer. 

SINTIO 



This program consists of 5 subroutines which 
perforin interrupt driven input and output using 
a 6850 ACIA. 

INCH 

Read a character. 
INST ,_ . 

Determine input status (whether the input 

buffer is empty) . 
OUTCH 

Write a character. 
OUTST 

Determine output status (whether the output 

buffer is full) . 
INIT 

Initialize. 

INCH 

No parameters. 
INST 

No parameters. 
OUTCH 

Register A = character to transmit 
OUTST 

No parameters. 
INIT 

No parameters. 

INCH 

Register A = character. 
INST 

Carry flag equals if input buffer is empty, 

1 if character is available. 



1 1 A UNBUFFERED INTERRUPT-DRIVEN I/O USING A 6850 ACIA (SINTIO) 46 7 



OUTCH 

No parameters 
OOTST 

Carry flag equals if output buffer is 

empty, 1 if it is full. 
INIT ' 

No parameters. 



Registers used: INCH 

A,F,Y 
INST 

A,F 
OUTCH 

A,F,Y 
OUTST 

A,F 
INIT 

A,F 



Time: 



Size: 



INCH 

33 cycles if a character is available 
INST 

12 cycles 
OUTCH 

92 cycles if the output buffer is empty and 
the ACIA is ready to transmit 
OUTST 

12 cycles 
INIT 

73 cycles 
IOSRVC 

24 cycles minimum if the interrupt is not ours 

39 cycles to service a input interrupt 

59 cycles to service a output interrupt 

Program 168 bytes 
Data 6 bytes 



;EXAMPLE 6850 ACIA PORT DEFINITIONS FOR AN APPLE SERIAL BOARD IN SLOT 1 
ACIASR .EQU 0C094H ;ACIA STATUS REGISTER 

ACIADR .EQU 0C0 95H ;ACIA DATA REGISTER 

ACIACR .EQU 0C094H ;ACIA CONTROL REGISTER 

IRQVEC .EQU 03FEH ;APPLE IRQ VECTOR ADDRESS 



;READ A CHARACTER 
INCH: 



JSR 


INST 


BCC 


INCH 


PHP 




SEI 




LDA 


#0 


STA 


RECDF 


LDA 


RECDAT 


PLP 





;GET INPUT STATUS 

;WAIT IF CHARACTER IS NOT AVAILABLE 
;SAVE CURRENT STATE OF INTERRUPT SYSTEM 
.•DISABLE INTERRUPTS 

; INDICATE BUFFER IS NOW EMPTY 

;GET THE CHARACTER FROM THE BUFFER 

/•RESTORE FLAGS 
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RTS 

;RETURN INPUT STATUS (CARRY = 1 IF DATA IS AVAILABLE 
INST: 



LDA 
LSR 



RECDF 
A 



RTS 
;WRITE A CHARACTER 
OUTCH: 

PHP 

PHA 



GET THE DATA READY FLAG 
SET CARRY FROM FLAG 
CARRY = 1 IF CHARACTER IS AVAILABLE 



;SAVE STATE OF INTERRUPT FLAG 
;SAVE CHARACTER TO OUTPUT 



WAITOC : 



,-WAIT FOR THE CHARACTER BUFFER TO EMPTY, THEN STORE THE NEXT CHARACTER 



JSR OUTST 
BCS WAITOC 
SEI 

PLA 

STA TRNDAT 

LDA #0FFH 

STA TRNDF 

JSR OUTDAT 

PLP 

RTS 

;OUTPUT STATUS (CARRY = 

OUTST: 

LDA TRNDF 

LSR A 

RTS 

INITIALIZE 
INIT: 

PHP 

SEI 



GET THE OUTPUT STATUS 

WAIT IF THE OUTPUT BUFFER IS FULL 

DISABLE INTERRUPTS WHILE LOOKING AT THE 

SOFTWARE FLAGS 
GET THE CHARACTER 
STORE THE CHARACTER 
INDICATE CHARACTER AVAILABLE (BUFFER FULL) 

;SEND THE DATA TO THE PORT 
; RESTORE FLAGS 



1 IF BUFFER IS FULL) 

;CARRY = 1 IF CHARACTER IS IN THE BUFFER 



;SAVE CURRENT STATE OF FLAGS 

; DISABLE INTERRUPTS DURING INITIALIZATION 



.•INITIALIZE THE SOFTWARE FLAGS 

LDA #0 

STA RECDF ;NO INPUT DATA AVAILABLE 

STA TRNDF ;OUTPUT BUFFER EMPTY 

,;SAVE THE CURRENT IRQ VECTOR IN NEXTSR 

LDA IRQVEC 

STA NEXTSR 

LDA IRQVEC+1 

STA NEXTSR+1 

;SET THE IRQ VECTOR TO OUR INPUT SERVICE ROUTINE 

LDA AIOS 

STA IRQVEC 

LDA AIOS+1 

STA IRQVEC+1 

.-INITIALIZE THE 6850 
LDA #011B 
STA ACIACR 
LDA #10010001B 
STA ACIACR 



fMASTER RESET ACIA 
.-INITIALIZE ACIA MODE TO 
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DIVIDE BY 16 

8 DATA BITS 

2 STOP BITS 

OUTPUT INTERRLPTS DISABLED (NOTE THIS) 

INPUT INTERRUPTS ENABLED 



PLP 
RTS 



; RESTORE CURRENT STATE OF THE FLAGS 



AIOS: 



.WORD 



IOSRVC 



.•ADDRESS OF INPUT OUTPUT SERVICE ROUTINE 



; INPUT OUTPUT INTERRUPT SERVICE ROUTINE 
IOSRVC: 

PHA ;SAVE REGISTER A 

CLD -BE SURE PROCESSOR IS IN BINARY MODE 

;GET THE ACIA STATUS: BIT = 1 IF AN INPUT INTERRUPT 

;BIT 1 = 1 IF AN OUTPUT INTERRUPT 

LDA ACIASR 

LSR A ;BIT TO CARRY 

BCS IINT ;BRANCH IF AN INPUT INTERRUPT 

LSR A ;BIT 1 TO CARRY 

BCS OINT .-BRANCH IF AN OUTPUT INTERRUPT 

;THE INTERRUPT WAS NOT CAUSED BY THIS ACIA 
PLA 



JMP 



(NEXTSR) 



; SERVICE INPUT INTERRUPTS 

IINT: 

LDA ACIADR 

STA RECDAT 

LDA #0FFH 

STA RECDF 

JMP EXIT 

; SERVICE OUTPUT INTERRUPTS 

OINT: 

LDA TRNDF 

BEQ NODATA 

JSR OUTDTl 



JMP 



EXIT 



;GOTO THE NEXT SERVICE ROUTINE 



;READ THE DATA 
; STORE IT AWAY 

; INDICATE WE HAVE A CHARACTER IN RECDAT 
;EXIT IOSRVC 



GET DATA AVAILABLE FLAG 
BRANCH IF NO DATA TO SEND 
ELSE OUTPUT THE DATA, 
(WE DO NOT NEED TO TEST THE STATUS) 



IF AN OUTPUT INTERRUPT OCCURS WHEN NO DATA IS AVAILABLE, 
WE MUST DISABLE THE INTERRUPT TO AVOID AN ENDLESS LOOP 
LATER WHEN A CHARACTER BECOMES AVAILABLE, WE CALL THE 
OUTPUT ROUTINE, OUTDAT, WHICH MUST TEST ACIA STATUS BEFORE 
SENDING THE DATA. THE OUTPUT ROUTINE MUST ALSO REENABLE THE OUTPUT 
INTERRUPT AFTER SENDING THE DATA. THIS PROCEDURE OVERCOMES THE 
PROBLEMS OF AN UNSERVICED OUTPUT INTERRUPT ASSERTING ITSELF 
REPEATEDLY, WHILE STILL ENSURING THAT OUTPUT INTERRUPTS ARE 
RECOGNIZED AND THAT DATA IS NEVER SENT TO AN ACIA THAT IS 
NOT READY FOR IT. THE BASIC PROBLEM HERE IS THAT AN OUTPUT 
DEVICE MAY REQUEST SERVICE BEFORE THE COMPUTER HAS 
ANYTHING TO SEND (WHEREAS AN INPUT DEVICE HAS DATA WHEN IT 



470 INTERRUPTS 



; REQUESTS SERVICE) 
NODATA: 



LDA #10010001B 



EXIT: 



STA 



PLA 
RTI 



ACIACR 



DISABLE OUTPUT INTERRUPTS, ENABLE INPUT 
INTERRUPTS, 8 DATABITS, 2 STOP BITS, DIVIDE 
BY 16 CLOCK 

TURN OFF OUTPUT INTERRUPTS 



; RESTORE REGISTER A 

; RETURN FROM INTERRUPT 



************************************* 

ROUTINE: OUTDAT, OUTDTl (OUTDAT IS NON-INTERRUPT DRIVEN ENTRY POINT) 

PURPOSE: SEND A CHARACTER TO THE ACIA 

ENTRY: TRNDAT = CHARACTER TO SEND 

EXIT: NONE 

REGISTERS USED: A,F 

*************************************** 

;NON-INTERRUPT ENTRY. MUST CHECK IF ACIA IS READY OR WAIT FOR IT 

OUTDAT* 

LDA ACIASR ;CAME HERE WITH INTERRUPTS DISABLED 

AND #00000010B ;TEST THE ACIA OUTPUT REGISTER FOR EMPTY 

BEQ OUTDAT ; BRANCH IF IT IS NOT EMPTY 

•GET THE CHARACTER 
; OUTPUT DATA 

; INDICATE BUFFER EMPTY 

■ENABLE 6850 OUTPUT AND INPUT INTERRUPTS, 

; 8 DATA BITS, 2 STOP BITS, DIVIDE BY 1 6 CLOCK 

RTS 



OUTDTl: 


LDA 


TRNDAT 




STA 


AC I ADR 




LDA 


#0 




STA 


TRNDF 




LDA 


#10110001B 




STA 


ACIACR 



-DATA SECTION 
RECDAT .BLOCK 



RECDF 

TRNDAT 

TRNDF 



. BLOCK 
.BLOCK 
.BLOCK 



NEXTSR .BLOCK 2 



RECEIVE DATA 

RECEIVE DATA FLAG (0 = NO DATA, FF = DATA) 

TRANSMIT DATA 

TRANSMIT DATA FLAG (0 = BUFFER EMPTY, 

FF = BUFFER FULL) 
ADDRESS OF THE NEXT INTERRUPT SERVICE ROUTINE 



SAMPLE EXECUTION: 



SC1101: 



JSR 
CLI 



INIT 



•INITIALIZE 
.•.ENABLE INTERRUPTS 
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LOOP: 



; SIMPLE EXAMPLE 



JSR 


INCH 


PHA 




JSR 


OUTC 


PLA 




CMP 


#1BH 


BNE 


LOOP 


BRK 





;READ A CHARACTER 

;ECHO IT 

/;IS IT AN ESCAPE CHARACTER ? 
;STAY IN LOOP IF NOT 



ASYNLP: 



;AN ASYNCHRONOUS EXAMPLE 

; OUTPUT "A" TO THE CONSOLE CONTINUOUSLY BUT ALSO LOOK AT THE 

; INPUT SIDE, READING AND ECHOING ANY INPUT CHARACTERS. 

.-OUTPUT AN "A" IF OUTPUT IS NOT BUSY 

JSR OUTST ;IS OUTPUT BUSY ? 

BCS ASYNLP ; BRANCH IF IT IS 

LDA #"A" 

JSR OUTCH ; OUTPUT THE CHARACTER 

;GET A CHARACTER FROM THE INPUT PORT IF ANY 

;IS INPUT DATA AVAILABLE ? 
; BRANCH IF NOT (SEND ANOTHER "A") 
; GET THE CHARACTER 
;IS IT AN ESCAPE CHARACTER ? 
;; BRANCH IF IT IS 
;ELSE ECHO IT 
;AND CONTINUE 



DONE: 



JSR 


INST 


BCC 


ASYNLP 


JSR 


INCH 


CMP 


#1BH 


BEQ 


DONE 


JSR 


OUTCH 


JMP 


ASYNLP 


BRK 




JMP 


SC1101 


.END 


; PROGRAM 



Unbuffered Interrupt-Driven Input/Output 
Using a 6522 VIA (PINTIO) 



11 B 



Performs interrupt-driven input and out- 
put using a 6522 VIA and single-character 
input and output buffers. Consists of the 
following subroutines: 

1. INCH reads a character from the input 
buffer. 

2. INST determines whether there is a 
character available in the input buffer. 

3. OUTCH writes a character into the out- 
put buffer. 

4. OUTST determines whether the output 
buffer is full. 

5. INIT initializes the 6522 VIA, the 
interrupt vectors, and the software flags. 

6. IOSRVC determines which interrupt 
occurred and provides the proper input or 
output service (i.e., it reads a character from 
the VIA into the input buffer in response to 
the input interrupt and it writes a character 
from the output buffer into the VIA in 
response to the output interrupt). 

Examples describe a 6522 VIA attached to 
an Apple II computer. 

Procedure: 

1. INCH waits for a character to be availa- 
ble in the input buffer, clears the Data Ready 
flag (RECDF), and loads the character from 
the buffer into the accumulator. 

2. INST sets the Carry flag from the Data 
Ready flag (memory location RECDF). 

3. OUTCH waits for the output buffer to 
be emptied, places the character (from the 
accumulator) in the buffer, and sets the 
character available (buffer full) flag 
(TRNDF). If an unserviced output interrupt 



Registers Used: 

1. INCH: A, F, Y 

2. INST: A, F 

3. OUTCH: A,.F, Y 

4. INIT A, F 

Execution Time: 

1. INCH: 33 cycles if a character is 
available 

2. INST: 12 cycles 

3. OUTCH: 83 cycles if the output buffer is 
empty and the VIA is ready for data 

4. OUTST: 12 cycles 

5. INIT: 93 cycles 

6. IOSRVC: 43 cycles to service an input 
interrupt, 81 cycles to service an output interrupt, 
24 cycles to determine that interrupt is from 
another device 

Program Size: 194 bytes 

Data Memory Required: Seven bytes anywhere 
in RAM. One byte for the received data (at 
address RECDAT), one byte for the Receive 
Data flag (at address RECDF), one byte for the 
transmit data (at address TRNDAT), one byte 
for the Transmit Data flag (at address TRNDF), 
one byte for the Output Interrupt flag (at address 
OIE), and two bytes for the address of the next 
interrupt service routine (starting at address 
NEXTSR). 



has occurred (i.e., the output device has 
requested service when no data was availa- 
ble), OUTCH actually sends the data to the 
VIA. 

4. OUTST sets the Carry flag from the 
Character Available flag (memory location 
TRNDF). 

5. INIT clears the software flags, sets up 
the interrupt 'vector, and initializes the 6522 
VIA. It makes port A an input port, port B an 
output port, control lines CA1 and CB1 
active low-to-high, control line CA2 a brief 
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output pulse indicating input acknowledge 
(active-low after the CPU reads the data), 
and control line CB2 a write strobe (active- 
low after the CPU writes the data and lasting 
until the peripheral becomes ready again). 
INIT also enables the input interrupt on CA1 
and the output interrupt on CB1. 

6. IOSRVC determines whether the inter- 
rupt was an input interrupt (bit 1 of the VIA 
interrupt flag register = 1), an output inter- 
rupt (bit 4 of the VIA interrupt flag register 
= 1), or the product of some other device. If 
the input interrupt occurred, the program 
reads the data, saves it in the input buffer, 
and sets the Data Ready flag (RECDF). If the 
output interrupt occurred, the program 
determines whether any data is available. If 
not, the program simply clears the interrupt 
and clears the flag (OIE) that indicates the 
output device is actually ready (that is, an 
output interrupt has occurred at a time when 
no data was available). If data is available, the 
program sends it from the output buffer to 
the VIA, clears the Character Available flag 
(TRNDF), sets the Output Interrupt flag 
(OIE), and enables both the input and the 
output interrupts. 

The only special problem in using these 
routines is that an output interrupt may occur 
when no data is available to send. We cannot 



ignore the interrupt or it will assert itself 
indefinitely, creating an endless loop. The 
solution is to simply clear the interrupt by 
reading the data register in port B. But now 
we create a new problem when the main pro- 
gram has data ready to be sent. The interrupt 
indicating that the output device is ready has 
already occurred (and been cleared), so there 
is no use waiting for it. The solution is to es- 
tablish an extra flag that indicates (with a 0) 
that the output interrupt has occurred with- 
out being serviced. We call this flag OIE, the 
Output Interrupt flag. The initialization 
routine sets it initially (since the output 
device has not requested service), and the 
output service routine clears it when an out- 
put interrupt occurs that cannot be serviced 
(no data is available) and sets it after sending 
data to the VIA (in case it might have been 
cleared). Now the output routine OUTCH 
can check OIE to determine whether the out- 
put interrupt has already occurred (a value 
indicates it has, FF hex that it has not). 

Note that we can clear a VIA interrupt 
without actually sending any data. We cannot 
do this with a 6850 ACIA (see Subroutines 
11 A and 11C), so the procedures there are 
somewhat different. This problem of unser- 
viced interrupts occurs only with output 
devices, since input devices request service 
only when they have data ready to transfer. 
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Entry Conditions 



1. INCH: 

2. INST: 

3. OUTCH: 
accumulator 

4. OUTST: 

5. INIT: 



none 
none 
character to transmit in 

none 
none 



Exit Conditions 

1. INCH: character in accumulator 

2. INST: Carry flag = if no character 
is available, 1 if a character is available 

3. OUTCH: none 

4. OUTST: Carry flag = if output 
buffer is empty, 1 if it is full. 

5. INIT: none 



Title 
Name: 

Purpose: 



Entry: 



Exit: 



Simple interrupt input and output using a 6522 

VIA and a single character' buffer. 

PINTIO 



This program consists of 5 subroutines which 
perform interrupt driven input and output using 
a 6522 VIA. 

INCH 

Read a character. 
INST 

Determine input status (whether the input 

buffer is empty) . 
OUTCH 

Write a character. 
OUTST 

Determine output status (whether the output 

buffer is full). 
INIT 

Initialize. 

INCH 

No parameters. 
INST 

No parameters. 
OUTCH 

Register A = character to transmit 
OUTST 

No parameters. 
INIT 

No parameters. 

INCH 

Register A = character. 
INST 
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Carry flag equals if input buffer is empty, 

1 if character is available. 
OUTCH 

No parameters 
OUTST 

Carry flag equals if output buffer is 

empty, 1 if it is full. 
INIT 

No parameters. 



Registers used: INCH 

A,F,Y 
INST 

A F 
OUTCH 

A,F,Y 
OUTST 

A,F 
INIT 

A,F 



Time: 



Size: 



INCH 

33 cycles if a character is available 
INST 

12 cycles 
OUTCH 

83 cycles if the output buffer is empty and 
the VIA is ready to transmit 
OUTST 

12 cycles 
INIT 

93 cycles 
IOSRVC 

24 cycles minimum if the interrupt is not ours 

43 cycles to service a input interrupt 

81 cycles to service a output interrupt 

Program 194 bytes 
Data 7 bytes. 



; EXAMPLE 


6522 


VIA PORT 


VIA 


• EQU 


0C090H 


VIABDR 


.EQU 


VIA 


VIAADR 


• EQU 


VI A +1 


VIABDD 


.EQU 


VIA+2 


VIAADD 


.EQU 


VIA+3 


VIAACR 


.EQU 


VIA+11 


VIAPCR 


.EQU 


VIA+12 


VIAIFR 


.EQU 


VIA+13 


VIAIER 


.EQU 


VIA+14 



DEFINITIONS 

;VIA BASE ADDRESS 

;VIA PORT B DATA REGISTER 

;VIA PORT A DATA REGISTER, WITH HANDSHAKING 

;VIA PORT B DATA DIRECTION REGISTER 

;VIA PORT A DATA DIRECTION REGISTER 

;VIA AUXILIARY CONTROL REGISTER 

;VIA PERIPHERAL CONTROL REGISTER 

;VIA INTERRUPT FLAG REGISTER 

;VIA INTERRUPT ENABLE REGISTER 



IRQVEC .EQU 3FEH 
;READ A CHARACTER 



; APPLE IRQ VECTOR ADDRESS 
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INCH: 





JSR 


INST 




BCC 


INCH 




PHP 






SEI 






LDA 


RECDAT 




LDA 


#0 




STA 


RECDF 




LDA 


RECDAT 




PLP 






RTS 




; RETURN 


INPUT 


STATUS (CARRY 


INST: 








LDA 


RECDF 




LSR 


A 



GET INPUT STATUS 

WAIT IF CHARACTER IS NOT AVAILABLE 

SAVE CURRENT STATE OF INTERRUPT SYSTEM 

DISABLE INTERRUPTS 

GET THE CHARACTER FROM THE BUFFER 

INDICATE BUFFER IS NOW EMPTY 

GET THE CHARACTER FROM THE BUFFER 

RESTORE FLAGS 



1 IF DATA IS AVAILABLE) 

;GET THE DATA READY FLAG 

;SET CARRY FROM FLAG 

; CARRY = 1 IF CHARACTER IS AVAILABLE 



RTS 



;WRITE 


A CHARACTER 


OUTCH: 


PHP 
PHA 






;WAIT 


FOR THE < 


WAITOC : 








JSR 


OUTST 




BCS 


WAITOC 




SEI 






PLA 






STA 


TRNDAT 




LDA 


#0FFH 




STA 


TRNDF 




LDA 


OIE 




BNE 


OUTCHl 




JSR 


OUTDAT 


OUTCH1 


PLP 
RTS 





;SAVE STATE OF INTERRUPT FLAG 
;SAVE CHARACTER TO OUTPUT 

BUFFER TO EMPTY, THEN STORE THE NEXT CHARACTER 

GET THE OUTPUT STATUS 

WAIT IF THE OUTPUT BUFFER IS FULL 

DISABLE INTERRUPTS WHILE LOOKING AT THE 

SOFTWARE FLAGS 
GET THE CHARACTER 
STORE THE CHARACTER 
INDICATE CHARACTER AVAILABLE (BUFFER FULL) 



HAS THE OUTPUT DEVICE ALREADY REQUESTED 
SERVICE? 

NO, BRANCH AND WAIT FOR AN INTERRUPT 
YES, SEND THE DATA TO THE PORT NOW 

RESTORE FLAGS 



•OUTPUT STATUS (CARRY = 1 IF BUFFER IS FULL) 

OUTST: 

LDA TRNDF ,-CARRY = 1 IF CHARACTER IS IN THE BUFFER 

LSR A 
RTS 



INITIALIZE 

INIT: 

PHP 
SEI 



;SAVE CURRENT STATE OF FLAGS 
; DISABLE INTERRUPTS 



; INITIALIZE THE SOFTWARE FLAGS 
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LDA 


.#0 


STA 


RECDF 


STA 


TRNDF 


LDA 


#0FFH 


STA 


OIE 



;NO INPUT DATA AVAILABLE 

;OUTPUT BUFFER EMPTY 

;OUTPUT DEVICE HAS NOT REQUESTED SERVICE 



;SAVE THE CURRENT IRQ VECTOR IN NEXTSR 
LDA IRQVEC 
STA NEXTSR 
LDA IRQVEC +1 
STA NEXTSR+1 



;SET THE IRQ VECTOR TO OUR INPUT SERVICE ROUTINE 
LDA AIOS 
STA IRQVEC 
LDA AIOS+1 
STA IRQVEC+1 



.•INITIALIZE THE 6522 VIA 



LDA 


#00000000B 


STA 


VIAADD 


LDA 


mimiiB 


STA 


VIABDD 


LDA 


#10001010B 


STA 


VIAPCR 



AIOS: 



LDA 


#00000001B 


STA 


VIAACR 


LDA 


#00010010B 


STA 


VIAIER 


PLP 




RTS 




.WORD 


IOSRVC 



;SET PORT A TO INPUT 
;SET PORT B TO OUTPUT 

SET PORT A TO 
INTERRUPT ON A LOW TO HIGH OF CAl (BIT 0=1) 
OUTPUT A LOW PULSE ON CA2 (BITS 1..3 = 101) 

SET PORT B TO 
INTERRUPT ON A LOW TO HIGH OF CBl (BIT 4=1) 
HANDSHAKE OUTPUT MODE (BITS 5.. 7 = 001) 

SET AUXILIARY CONTROL TO ENABLE INPUT LATCHING 

FOR PORT A 
SET INTERRUPT ENABLE REGISTER TO ALLOW 

INTERRUPTS ON CAl (BIT 1) AND CBl (BIT 4) 

;RESTORE CURRENT STATE OF THE FLAGS 



;ADDRESS OF INPUT OUTPUT SERVICE ROUTINE 



; INPUT OUTPUT INTERRUPT SERVICE ROUTINE 
IOSRVC: 

PHA ;SAVE REGISTER A 

CLD ;BE SURE PROCESSOR IS IN BINARY MODE 

;GET THE VIA STATUS: BIT 1 = 1 IF AN INPUT INTERRUPT 

;BIT 4 = 1 IF AN OUTPUT INTERRUPT 

LDA VIAIFR 

AND #10B ;TEST BIT 1 

BNE I INT ;GOTO INPUT INTERRUPT IF BIT 1=1 

LDA VIAIFR 

AND #1000B ;TEST BIT 4 

BNE OINT ;GOTO OUTPUT INTERRUPT IF BIT 4=1 
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;THE INTERRUPT WAS NOT CAUSED BY THIS VIA 

PLA 

JMP 



(NEXTSR) 



; SERVICE INPUT INTERRUPTS 
IINT: 

LDA VIAADR 



;GOTO THE NEXT SERVICE ROUTINE 



STA 
LDA 
STA 
JMP 



RECDAT 
#0FFH 
RECDF 
EXIT 



;READ THE DATA 

; (WHICH PULSES CA2 FOR THE HANDSHAKE AND 

; CLEARS THE INTERRUPT FLAG) 

; STORE DATA 

.•INDICATE WE HAVE A CHARACTER IN RECDAT 
;EXIT IOSRVC 



SERVICE OUTPUT INTERRUPTS 

NOTE THAT WE CAN CLEAR A 6522 INTERRUPT BY READING THE DATA 
REGISTER. THUS WE CAN CLEAR AN OUTPUT INTERRUPT WITHOUT 
SERVICING IT OR DISABLING IT. HOWEVER, IF WE DO THIS, WE 
MUST HAVE A FLAG (OIE) THAT INDICATES . THE OUTPUT INTERRUPT 
HAS OCCURRED BUT HAS NOT BEEN SERVICED. OUTCH CAN THEN USE 
THE OIE FLAG TO DETERMINE WHETHER TO SEND THE DATA IMMEDIATELY 
OR WAIT FOR AN OUTPUT INTERRUPT TO SEND IT. 

OINT: 

LDA TRNDF ;GET DATA AVAILABLE FLAG 

BNE NODATA ; BRANCH IF THERE IS NO DATA TO SEND 

JSR OUTDAT ; ELSE OUTPUT THE DATA 

JMP EXIT 



NODATA: 



LDA 

LDA 
STA 



VIABDR 

#0 
OIE 



READ THE PORT B DATA REGISTER TO CLEAR THE 

INTERRUPT. 
INDICATE OUTPUT INTERRUPT HAS OCCURRED 

BUT HAS NOT BEEN SERVICED 



EXIT: 



PLA 
RTI 



; RESTORE REGISTER A 
; RETURN FROM INTERRUPT 



**************************************** 

ROUTINE: OUTDAT 

PURPOSE: SEND A CHARACTER TO THE VIA 

ENTRY: TRNDAT = CHARACTER TO SEND 

EXIT: NONE 

REGISTERS USED: A,F 

**************************************** 



OUTDAT : 








LDA 


TRNDAT 




STA 


VIABDR 




LDA 


#0 




STA 


TRNDF 




LDA 


#0FFH 




STA 


OIE 




RTS 





;GET THE CHARACTER 

; OUTPUT DATA TO PORT B 

.•INDICATE BUFFER EMPTY 

; INDICATE NO UNSERVICED OUTPUT INTERRUPT 
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;DATA SECTION 




RECDAT . BLOCK 


1 


RECDF .BLOCK 


1 


TRNDAT . BLOCK 


1 


TRNDF . BLOCK 


1 



OIE 



NEXTSR 



.BLOCK 



, BLOCK 



(0 = NO DATA, FF = DATA) 



.-RECEIVE DATA 

; RECEIVE DATA FLAG 

; TRANSMIT DATA 

.-TRANSMIT DATA FLAG (0 = BUFFER EMPTY 

i FF = BUFFER FULL) 

; OUTPUT INTERRUPT FLAG 

; (0 = INTERRUPT OCCURRED WITHOUT SERVICE 

; FF = INTERRUPT SERVICED) 

;ADDRESS OF THE NEXT INTERRUPT SERVICE ROUTINE 



SAMPLE EXECUTION: 



SC1102: 








JSR 


INIT 




CLI 






; SIMPLE 


EXAMPLE 


LOOP: 








JSR 


INCH 




PHA 






JSR 


OUTCH 




PLA 






CMP 


#1BH 




BNE 


LOOP 




BRK 





.-INITIALIZE 

; ENABLE INTERRUPTS 



,-READ A CHARACTER 
,-ECHO IT 



,-IS IT AN ESCAPE CHARACTER ? 
,-STAY IN LOOP IF NOT 



ASYNLP: 



;AN ASYNCHRONOUS EXAMPLE 

,- OUTPUT "A" TO THE CONSOLE CONTINUOUSLY BUT ALSO LOOK AT THE 

; INPUT SIDE, READING AND ECHOING ANY INPUT CHARACTERS. 

,-OUTPUT AN "A" IF OUTPUT IS NOT BUSY 

JSR OUTST ;IS OUTPUT BUSY ? 

BCS ASYNLP ,-BRANCH IF IT IS 

LDA #"A" 

JSR OUTCH ; OUTPUT THE CHARACTER 



DONE: 



.-GET 

JSR 

BCC 

JSR 

CMP 

BEQ 

JSR 

JMP 



BRK 
JMP 



CHARACTER FROM THE INPUT PORT IF ANY 

INST ;IS INPUT DATA AVAILABLE ? 

ASYNLP ;BRANCH IF NOT (SEND ANOTHER 

IN C H ,-GET THE CHARACTER 

# lBH ;IS IT AN ESCAPE CHARACTER ? 

DONE .-BRANCH IF IT IS 

OUTCH ;ELSE ECHO IT 

ASYNLP ;AND CONTINUE 



SC1102 



"A") 



.END 



; PROGRAM 



Buffered Interrupt-Driven Input/Output 
Using a 6850 ACIA (SINTB) 



11C 



Performs interrupt-driven input and out- 
put using a 6850 ACIA and multiple- 
character buffers. Consists of the following 
subroutines: 

1. INCH reads a character from the input 
buffer. 

2. INST determines whether there are any 
characters in the input buffer. 

3. OUTCH writes a character into the out- 
put buffer. 

4. OUTST determines whether the output 
buffer is full. 

5. INIT initializes the buffers and the 
6850 device. 

6. IOSRVC determines which interrupt 
occurred and provides the proper input or 
output service. 

Procedures: 

1. INCH waits for a character to become 
available, gets the character from the head of 
the input buffer, moves the head of the 
buffer up one position, and decreases the 
input buffer counter by 1. 

2. INST sets the Carry to if the input 
buffer counter is zero and to 1 if the counter 
is non-zero. 

3. OUTCH waits until there is empty 
space in the output buffer (that is, until the 
output buffer is not full), stores the character 
at the tail of the output buffer, moves the tail 
of the buffer up one position, and increases 
the output buffer counter by 1 . 

4. OUTST sets the Carry flag to 1 if the 
output buffer counter is equal to the buffer's 
length and to if it is not. 



Registers Used: 

1. INCH: A, F, Y 

2. INST: A, F 

3. OUTCHA, F, Y 

4. OUTST:A, F 

5. INIT: A, F 

Execution Time: 

1. INCH: 70 cycles if a character is available 

2. INST: 18 cycles 

3. OUTCH: 75 cycles minimum, 105 cycles 
maximum if the output buffer is not full and the 
ACIA is ready to transmit 

4. OUTST: 12 cycles 

5. INIT: 89 cycles 

6. IOSRVC: 73 cycles to service an input 
interrupt, 102 cycles to service an output inter- 
rupt, 27 cycles to determine the interrupt is from 
another device. 

Program Size: 258 bytes 

Data Memory Required: Seven bytes anywhere 
in RAM plus the input and output buffers. The 
seven bytes anywhere in RAM hold the input 
buffer counter (one byte at address ICNT), the 
index to the head of the input buffer (one byte at 
address IHEAD), the index to the tail of the 
input buffer (one byte at address ITAIL) , the 
output buffer counter (one byte at address 
OCNT), the index to the head of the output 
buffer (one byte at address OHEAD), the index 
to the tail of the output buffer (one byte at 
address OIE), and an Output Interrupt Enable 
flag (one byte at address OIE). The input buffer 
starts at address IBUF and its size is IBSZ; the 
output buffer starts at address OBUF and its size 
is OBSZ. 



5. INIT clears the buffer counters, sets 
both the heads and the tails of the buffers to 
zero, sets up the interrupt vector, resets the 
ACIA by performing a master reset on its 
control register (the ACIA has no reset 
input), and places the ACIA in its required 
operating mode by storing the appropriate 
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value in its control register. INIT enables the 
input interrupt and disables the output inter- 
rupt. It does, however, clear the output inter- 
rupt enable flag, thus indicating that the 
ACIA is ready to transmit data, although it 
cannot cause an output interrupt. 

6. IOSRVC determines whether the inter- 
rupt was an input interrupt (bit of the ACIA 
status register = 1), an output interrupt (bit 
1 of the ACIA status register = 1), or the 
product of some other device. If the input 
interrupt occurred, the program reads the 
data and determines if there is room for it in 
the buffer. If there is room, the processor 
stores the character at the tail of the input 
buffer, moves the tail of the buffer up one 
position, and increases the input buffer 
counter by 1. If the output interrupt oc- 
curred, the program determines whether 
there is any data in the output buffer. If there 
is none, the program disables the output 
interrupt (so it will not interrupt repeatedly) 
and clears an Output Interrupt flag that indi- 
cates the ACIA is actually ready. The flag lets 
the main program know that the ACIA is 
ready even through it cannot declare its 
readiness by forcing an interrupt. If there is 
data in the output buffer, the program 
obtains a character from the head of the 
buffer, sends it to the ACIA, moves the head 
of the buffer up one position, and decreases 
the output buffer counter by 1. It then ena- 
bles both input and output interrupts and sets 
the Output Interrupt flag (in case that flag 
had been cleared earlier). 

The new problem that occurs in using 
multiple-character buffers is the manage- 
ment of queues. The main program must 
read the data in the same order in which the 
input interrupt service routine receives it. 
Similarly, the output interrupt service 



routine must send the data in the same order 
that the main program stores it. Thus we 
have the following requirements for handling 
input: 

1. The main program must know whether 
there is anything in the input buffer. 

2. If the input buffer is not empty, the 
main program must know where the oldest 
character is (that is, the one that was received 
first). 

3. The input interrupt service routine 
must know whether the input buffer is full. 

4. If the input buffer is not full, the input 
interrupt service routine must know where 
the next empty place is (that is, it must know 
where it should store the new character). 

The output interrupt service routine and 
the main program have a similar set of 
requirements for the output buffer, although 
the roles of sender and receiver are reversed. 

We meet requirements 1 and 3 by main- 
taining a counter ICNT. INIT initializes 
ICNT to zero, the interrupt service routine 
adds 1 to it whenever it receives a character 
(assuming the buffer is not full), and the 
main program subtracts 1 from it whenever it 
removes a character from the buffer (assum- 
ing the buffer is not empty). Thus the main 
program can determine whether the input 
buffer is empty by checking if ICNT is zero. 
Similarly, the interrupt service routine can 
determine whether the input buffer is full by 
checking if ICNT is equal to the size of the 
buffer. 

We meet requirements 2 and 4 by main- 
taining two indexes, IHEAD and ITAIL, 
defined as follows: 

1. ITAIL is the index of the next empty 
location in the buffer. 
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2. IHEAD is the index of the oldest 
character in the buffer. 

INIT initializes IHEAD and ITAIL to 
zero. Whenever the interrupt service routine 
receives a character, it places it in the buffer 
at index ITAIL and increments ITAIL by 1 
(assuming that the buffer is not full). 
Whenever the main program reads a 
character, it removes it from the buffer at 
index IHEAD and increments IHEAD by 1 
(assuming that the buffer is not empty). 
Thus IHEAD "chases" ITAIL across the 
buffer with the service routine entering 



characters at one end (the tail) while the 
main program removes them from the other 
end (the head). The occupied part of the 
buffer thus could start and end anywhere. If 
either IHEAD or ITAIL reaches the physical 
end of the buffer, we simply set it back to 
zero. Thus we allow wraparound on the 
buffer; that is, the occupied part of the buffer 
could start near the end (say, at byte #195 of 
a 200-byte buffer) and continue back to the 
beginning (say, to byte #10). Thus IHEAD 
would be 195, ITAIL would be 10, and the 
buffer would contain 15 characters occupying 
bytes #195 through 199 and through 9. 



Entry Conditions 



1. INCH: 

2. INST: 

3. OUTCH: 
accumulator 

4. OUTST: 

5. INIT: 



none 
none 
character to transmit in 

none 
none 



Exit Conditions 

1. INCH: character in accumulator 

2. INST: Carry flag = if no 
characters are available, 1 if a character 
is available 

3. OUTCH: none 

4. OUTST: Carry flag = if output 
buffer is not full, 1 if it is full 

5. INIT: none 



Title 
Name: 



Interrupt input and output using a 6850 
ACIA and a multiple character buffer. 
SINTB 



Purpose: 



This program consists of 5 subroutines which ; 
perform interrupt driven input and output using ; 
a 6850 ACIA. ; 

f 

INCH ; 

Read a character. ' 
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INST 

Determine input status (whether a character 

is available) . 
OUTCH 

Write a character. 
OUTST 

Determine output status (whether the output 

buffer is full) . 
INIT 

Initialize. 

Entry: INCH 

No parameters. 
INST 

No parameters. 
OUTCH 

Register A = character to transmit 
OUTST 

No parameters. 
INIT 

No parameters. 

Exit: INCH 

Register A = character. 
INST 

Carry flag equals if no characters are 

available, 1 if character is available. 
OUTCH 

No parameters 
OUTST 

Carry flag equals if output buffer is 

empty, 1 if it is full. 
INIT 

No parameters. 

Registers used: INCH 

A,F,Y 
INST 

A,F 
OUTCH 

A,F,Y 
OUTST 

A,F 
INIT 

A,F 

Registers used: INCH 

A,F,Y 
INST 

A,F 
OUTCH 

A,F,Y 
OUTST 

A,F 
INIT 
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A,F 

Time: INCH 

70 cycles if a character is available 

INST 

18 cycles 
OUTCH 

75 cycles minimum, if the output buffer is 
not full and the ACIA is ready to transmit 
OUTST 

12 cycles 
INIT 

89 cycles 
IOSRVC 

27 cycles minimum if the interrupt is not ours 

73 cycles to service a input interrupt 

102 cycles to service a output interrupt 

Size: Program 258 bytes 

Data 7 bytes plus size of buffers 

Buffers: 

The routines assume two buffers starting at 
addresses IBUF and OBUF. The lengths of the 
buffers in bytes are IBSZ and OBSZ. For the 
input buffer, IHEAD is the index of the oldest 
character (the next one the main program should 
read) , ITAIL is the index of the next empty 
element (the next one the service routine 
should fill) , and ICNT is the number of bytes 
currently filled with characters. For the 
output buffer, OHEAD is the index of the oldest' 
character (the next one the service routine 
should send) , OTAIL is the index of the next 
empty element (the next one the main program 
should fill) , and OCNT is the number of bytes 
currently filled with characters. 

Note: Wraparound is provided on both buffers, so that 

the currently filled area may start anywhere 
and extend through the end of the buffer and 
back to the beginning. For example, if the 
output buffer is 40 hex bytes long, the section 
filled with characters could exetend from 
OBUF+32H (OHEAD=32H) toOBUF+lOH (0TAIL=11H). 
That is, there are 19H filled bytes occupying 
addresses OBUF+32H through OBUF+39H and 
continuing to OBUF through OBUF+10H. The buffer 
thus looks like a television picture with the 
vertical hold skewed, so that the frame starts 
above the bottom of the screen, leaves off at 
the top, and continues at the bottom. 



; EXAMPLE 6850 ACIA PORT DEFINITIONS FOR AN APPLE SERIAL BOARD IN SLOT 1 
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ACIASR .EQU 0C094H 

AC 1 ADR .EQU 0C095H 

ACIACR .EQU 0C094H 

IRQVEC .EQU 03FEH 

;READ A CHARACTER 
INCH: 





JSR 


INST 




BCC 


INCH 




PHP 






SEI 






LDY 


IHEAD 




LDA 


IBUF,Y 




INY 






CPY 


#IBSZ 




BCC 


INCH1 




LDY 


#0 


INCH1: 








STY 


IHEAD 




DEC 


ICNT 




PLP 






RTS 




; RETURN INPUT 


STATUS (CARRY 


INST: 


CLC 






LDA 


ICNT 




BEQ 


INST1 




SEC 




INST1: 


RTS 




;WRITE 


A CHARACTER 


OUTCH: 


PHP 
PHA 






;WAIT 


UNTIL THERE I£ 


WAITOC : 








JSR 


OUTST 




BCS 


WAITOC 




SEI 






PLA 






LDY 


OTAIL 




STA 


OBUF,Y 




INY 






CPY 


#OBSZ 




BCC 


OUTCH1 




LDY 


#0 


OUTCH1: 








STY 


OTAIL 




INC 


OCNT 




LDA 


OIE 




BNE 


OUTCH2 



;ACIA STATUS REGISTER 
;ACIA DATA REGISTER 
;ACIA CONTROL REGISTER 
;APPLE IRQ VECTOR ADDRESS 



;IS A CHARACTER AVAILABLE ? 

; BRANCH IF NOT 

;SAVE CURRENT STATE OF INTERRUPTS 

; DISABLE INTERRUPTS 

;GET CHARACTER AT HEAD OF BUFFER 

;DO WE NEED WRAPAROUND IN BUFFER ? 

; BRANCH IF NOT 

;ELSE SET HEAD BACK TO ZERO 



; DECREMENT CHARACTER COUNT 
; RESTORE FLAGS 



1 IF CHARACTERS ARE AVAILABLE, IF NOT) 

; CLEAR CARRY (ASSUME NO CHARACTERS AVAILABLE) 

; BRANCH IF THERE ARE NONE 

; CARRY = 1 (CHARACTERS ARE AVAILABLE) 



;SAVE STATE OF INTERRUPT FLAG 
;SAVE CHARACTER TO OUTPUT 

EMPTY SPACE IN THE OUTPUT BUFFER 

;IS THE OUTPUT BUFFER FULL ? 

; BRANCH IF IT IS FULL 

,-DISABLE INTERRUPTS WHILE LOOKING AT THE 

; SOFTWARE FLAGS 

;GET THE CHARACTER 

;STORE CHARACTER IN THE BUFFER 

;DO WE NEED WRAPAROUND ON THE BUFFER ? 

; BRANCH IF NOT 

;ELSE SET TAIL BACK TO ZERO 



; INCREMENT BUFFER COUNTER 

;ARE INTERRUPTS DISABLED BUT THE ACIA IS 

; ACTUALLY READY ? 

;EXIT IF ACIA INTERRUPTS NOT READY AND ENABLED 
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0UTCH2: 



JSR OUTDAT 



PLP 
RTS 



;ELSE SEND THE DATA TO THE PORT AND ENABLE 
; INTERRUPTS 

; RESTORE FLAGS 



; OUTPUT STATUS 

OUTST: 

LDA OCNT 
CMP #OBSZ 



RTS 



IS OUTPUT BUFFER FULL ? 
IF OCNT >= OBSZ THEN 

CARRY = 1 INDICATING THAT THE OUTPUT 
BUFFER IS FULL 



ELSE 
CARRY 



INDICATING THAT THE CHARACTER 
CAN BE PLACED IN THE BUFFER 



.-INITIALIZE 

INIT: 

PHP 
SEI 



;SAVE CURRENT STATE OF FLAGS 
; DISABLE INTERRUPTS 



; INITIALIZE THE SOFTWARE FLAGS 



LDA 
STA 
STA 
STA 
STA 
STA 
STA 
STA 



#0 

ICNT 

IHEAD 

ITAIL 

OCNT 

OHEAD 

OTAIL 

OIE 



;NO INPUT DATA 
;NO OUTPUT DATA 



;ACIA IS READY TO TRANSMIT (NOTE THIS !!] 



;SAVE THE CURRENT IRQ VECTOR IN NEXTSR 
LDA IRQVEC 
STA NEXTSR 
LDA IRQVEC+1 
STA NEXTSR+1 

;SET THE IRQ VECTOR TO OUR INPUT SERVICE ROUTINE 
LDA AIOS 
STA IRQVEC 
LDA AIOS+1 
STA IRQVEC+1 

INITIALIZE THE 6850 ACIA 
LDA #011B 

STA ACIACR ;MASTER RESET ACIA 

#10010001B 



LDA 
STA 



ACIACR 



INITIALIZE ACIA MODE TO 
DIVIDE BY 16 
8 DATA BITS 
2 STOP BITS 
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OUTPUT INTERRUPTS DISABLED (NOTE THIS !!) 
INPUT INTERRUPTS ENABLED 



PLP 
RTS 



; RESTORE CURRENT STATE OF THE FLAGS 



AIOS: 



.WORD IOSRVC 



;ADDRESS OF INPUT OUTPUT SERVICE ROUTINE 



; INPUT OUTPUT INTERRUPT SERVICE ROUTINE 
IOSRVC : 

PHA ;SAVE REGISTER A 

CLD ;BE SURE PROCESSOR IS IN BINARY MODE 



;GET THE ACIA STATUS: BIT = 1 IF AN INPUT INTERRUPT 
;BIT 1 = 1 IF AN OUTPUT INTERRUPT 
LDA ACIASR 

BIT TO CARRY 

BRANCH IF AN INPUT INTERRUPT 

BIT 1 TO CARRY 

BRANCH IF AN OUTPUT INTERRUPT 



LSR 


A 


BCS ' 


I INT 


LSR 


A 


BCS 


OINT 



;THE INTERRUPT WAS NOT OURS 

PLA 

JMP (NEXTSR) ;GOTO THE NEXT SERVICE ROUTINE 



;SERVICE INPUT 


INTERRUPTS 


IINT: 


TYA 
PHA 








;GET 


THE DATA AND 




LDA 




AC I ADR 




LDY 




ICNT 




CPY 




#IBSZ 




BCS 




EXIT 




LDY 




ITAIL 




STA 




IBUF,Y 




INY 








CPY 




#IBSZ 




BCC 




IINT1 




LDY 




#0 


IINT1: 










STY 




ITAIL 




INC 




ICNT 




JMP 




EXIT 


;SERVICE OUTPUT 


INTERRUPTS 


OINT: 


TYA 
PHA 








LDA 




OCNT 




BEQ 




NODATA 




JSR 




OUTDAT 




JMP 




EXIT 



;SAVE REGISTER Y 



;READ THE DATA 

;IS THERE ROOM IN THE BUFFER ? 

;EXIT, NO ROOM IN THE BUFFER 
;ELSE STORE THE DATA IN THE BUFFER 

; INCREMENT TAIL INDEX 

;DO WE NEED WRAPAROUND ON THE BUFFER ? 

; BRANCH IF NOT 

;ELSE SET TAIL BACK TO ZERO 

; STORE NEW TAIL INDEX 

; INCREMENT INPUT BUFFER COUNTER 

;EXIT IOSRVC 



;SAVE REGISTER Y 

;IS THERE ANY DATA IN THE OUTPUT BUFFER ? 
; BRANCH IF NOT (DISABLE THE INTERRUPTS) 
;ELSE SEND A CHARACTER 
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NO DAT A: 



EXIT: 



LDA 



STA 
LDA 
STA 



PLA 
TAY 
PLA 
RTI 



#10010001B 



ACIACR 

#0 

OIE 



.•DISABLE OUTPUT INTERRUPTS, ENABLE INPUT 

; INTERRUPTS, 8 DATA BITS, 2 STOP BITS, DIVIDE 

; BY 16 CLOCK 

;TURN OFF INTERRUPTS 

.•INDICATE OUTPUT INTERRUPTS ARE DISABLED 
; BUT ACIA IS ACTUALLY READY 



RESTORE REGISTER Y 
RESTORE REGISTER A 
RETURN FROM INTERRUPT 



************************************* 

ROUTINE: OUTDAT 

PURPOSE: SEND A CHARACTER TO THE ACIA FROM THE OUTPUT BUFFER 

ENTRY: OHEAD IS THE INDEX INTO OBUF OF THE CHARACTER TO SEND 

EXIT: NONE 

REGISTERS USED: A,F 

*************************************** 



OUTDAT : 



OUTDl: 



LDA 
AND 
BEQ 
LDY 
LDA 
STA 
INY 
CPY 
BCC 
LDY 

STY 
DEC 
LDA 
STA 

LDA 
STA 



ACIASR 

#00000010B 

OUTDAT 

OHEAD 

OBUF.Y 

AC I ADR 

KOBSZ 
OUTDl 

#0 

OHEAD 
OCNT 

#10110001B 
ACIACR 

#0FFH 
OIE 



j IS ACIA OUTPUT REGISTER EMPTY ? 
; BRANCH IF NOT EMPTY (BIT 1=0) 

;GET THE CHARACTER FROM THE BUFFER 
;SEND THE DATA 

;DO WE NEED WRAPAROUND ON THE BUFFER ? 

; BRANCH IF NOT 

;ELSE SET HEAD BACK TO ZERO 

;SAVE NEW HEAD INDEX 

; DECREMENT OUTPUT BUFFER COUNTER 

;ENABLE 6850 OUTPUT AND INPUT INTERRUPTS, 

; 8 DATA BITS, 2 STOP BITS, DIVIDE BY 16 CLOCK 

; INDICATE THE OUTPUT INTERRUPTS ARE ENABLED 



RTS 



;DATA SECTION 



ICNT 


. BLOCK 


1 


IHEAD 


.BLOCK 


1 


ITAIL 


. BLOCK 


1 


OCNT 


.BLOCK 


1 


OHEAD 


.BLOCK 


1 


OTAIL 


.BLOCK 


1 


OIE 


. BLOCK 


1 


IBSZ 


.EQU 


80 


IBUF 


.BLOCK 


IBSZ 



INPUT BUFFER COUNTER 

INDEX TO HEAD OF INPUT BUFFER 

INDEX TO TAIL OF INPUT BUFFER 

OUTPUT BUFFER COUNTER 

INDEX TO HEAD OF OUTPUT BUFFER 
.INDEX TO TAIL OF OUTPUT BUFFER 
;OUTPUT INTERRUPT ENABLE FLAG 

;INPUT BUFFER SIZE 
; INPUT BUFFER 
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OBSZ .EQU 80 
OBUF .BLOCK OBSZ 
NEXTSR .BLOCK 2 



;OUTPUT BUFFER SIZE 

;OUTPUT BUFFER 

,-ADDRESS OF THE NEXT INTERRUPT SERVICE ROUTINE 



SAMPLE EXECUTION: 



SC1103: 



LOOP: 



JSR 


INIT 


CLI 




; SIMPLE 


EXAMPLE 


JSR 


INCH 


PHA 




JSR 


OUTCH 


PLA 




CMP 


#1BH 


BNE 


LOOP 



.-INITIALIZE 

; ENABLE INTERRUPTS 



;READ A CHARACTER 
;ECHO IT 



;IS CHARACTER AN ESCAPE ? 
;BRANCH IF NOT, CONTINUE LOOPING 



ASYNLP: 



DONE: 



;AN ASYNCHRONOUS EXAMPLE 

; OUTPUT "A" TO THE CONSOLE CONTINUOUSLY BUT ALSO LOOK AT THE 

; INPUT SIDE, READING AND ECHOING ANY INPUT CHARACTERS. 

;OUTPUT AN "A" IF OUTPUT IS NOT BUSY 



JSR 
BCS 
LDA 
JSR 

;GET 

JSR 

BCC 

JSR 

CMP 

BEQ 

JSR 

JMP 



BRK 



OUTST 
ASYNLP 
#"A" 
OUTCH 



;IS OUTPUT BUSY ? 
;BRANCH IF IT IS 

;OUTPUT THE CHARACTER 



CHARACTER FROM THE INPUT PORT IF ANY 

INST ;IS INPUT AVAILABLE ? 

ASYNLP ;BRANCH IF NOT (SEND ANOTHER "A") 

INCH ;GET THE CHARACTER 

#!BH ;IS CHARACTER AN ESCAPE ? 

DONE ; BRANCH IF IT IS 

OUTCH ;ELSE ECHO IT 

ASYNLP ; AND CONTINUE 



.END 



; PROGRAM 



Real-Time Clock and Calendar (CLOCK) 



11D 



Maintains a time-of-day 24-hour clock 
and a calendar based on a real-time clock 
interrupt. Consists of the following sub- 
routines: 

1. CLOCK returns the starting address of 
the clock variables. 

2. ICLK initializes the clock interrupt and 
initializes the clock variables to their default 
values. 

3. CLKINT updates the clock after each 
interrupt (assumed to be spaced one tick 
apart). 

A long example in the listing describes a 
time display routine for the Apple II com- 
puter. The routine prompts the operator for 
an initial date and time. It then continuously 
displays the date and time in the center of the 
monitor screen. The routine assumes an 
interrupt board in slot 2. 

Procedure: 

1. CLOCK loads the starting address of 
the clock variables into the accumulator 
(more significant byte) and index register Y 
(less significant byte). The clock variables are 
stored in the following order (lowest address 
first): ticks, seconds, minutes, hours, days, 
months, less significant byte of year, more 
significant byte of year. 

2. ICLK loads the clock variables with 
their default values (8 bytes starting at 
address DFLTS) and initializes the clock 
interrupt (this would be mostly system- 
dependent) . 

3. CLKINT decrements the remaining 
tick count by one and updates the rest of the 
clock if necessary. Of course, the number of 
seconds and minutes must be less than 60 
and the number of hours must be less than 



Registers Used: 




1. CLOCK: 


A, F, Y 


2. ICLK: 


A, Y 


3. CLKINT: 


none 



Execution Time: 

1. CLOCK: 14 cycles 

2. ICLK: 166 cycles 

3. CLKINT: 33 cycles if only TICK must 
be decremented, 184 maximum if changing to a 
new year. 

Program Size: 

1. CLOCK: 7 bytes 

2. ICLK: 39 bytes 

3. CLKINT: 145 bytes 

Data Memory Required: 18 bytes anywhere in 
RAM. These include eight bytes for the clock 
variables (starting at address ACVAR), eight 
bytes for the defaults (starting at address 
DFLTS), and two bytes for the address of the 
next service routine (starting at address NEX- 
TSR). 



24. The day of the month must be less than or 
equal to the last day for the current month; 
an array of the last days of each month begins 
at address LASTDY. If the month is Febru- 
ary (that is, month 2), the program must 
check to see if the current year is a leap year. 
This requires a determination of whether the 
two least significant bits of memory location 
YEAR are both zeros. If the current year is a 
leap year, the last day of February is the 29th, 
not the 28th. The month number may not 
exceed 12 (December) or a carry to the year 
number is necessary. The program must 
reinitialize the variables properly when car- 
ries occur; that is, TICK to DTICK; seconds, 
minutes, and hours to zero; day and month 
to 1 (meaning the first day and January, 
respectively) . 
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Entry Conditions 

1. CLOCK: none 

2. ICLK: none 

3. CLKINT: none 



Exit Conditions 

1. CLOCK: more significant byte of 
starting address of clock variables in 
accumulator, less significant byte in register Y 

2. ICLK: none 

3. CLKINT: none 



Examples 

These examples assume that the tick rate 
is DTICK Hz (less than 256 Hz - typical 
values would be 60 Hz or 100 Hz) and that 
the clock and calendar are saved in memory 
locations 



TICK 



SEC 
MIN 
HOUR 
DAY 

MONTH 

YEAR& 
YEAR+1 



number of ticks remaining before a 
carry occurs, counted down from 
DTICK 

seconds (0 to 59) 

minutes (0 to 59) 

hour of day (0 to 23) 

day of month (1 to 28, 30, or 31, 

depending on month) 

month of year (1 through 12 for 

January through December) 



current year 



1. Starting values are 
11:59.59 and 1 tick left. 
That is, 

(TICK) = 1 
(SEC) = 59 
(MIN) = 59 
(HOUR) = 23 
(DAY) = 07 
(MONTH) = 03 
(YEAR) = 1982 



March 7, 1982. 



March 8, 1982 



Result (after the tick): 
12:00.00 and DTICK ticks 
That is, 

(TICK) = DTICK 
(SEC) = 
(MIN) = 
(HOUR) = 
(DAY) = 08 
(MONTH) = 03 
(YEAR) = 1982 



2. Starting values are Dec. 31, 1982. 
11:59.59 p.m. and 1 tick left 
That is, 

(TICK) = 1 
(SEC) = 59 
(MIN) = 59 
(HOUR) = 23 
(DAY) = 31 
(MONTH) = 12 
(YEAR) = 1982 



Result (after the tick): Jan. 
12:00.00 a.m. and DTICK ticks 
That is, 

(TICK) = DTICK 
(SEC) = 
(MIN) = 
(HOUR) = 
(DAY) = 1 
(MONTH) = 1 
(YEAR) = 1983 



1, 1983. 
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Title 
Name: 



Real time clock and calendar 
CLOCK 



Purpose: 



Entry: 



Exit: 



Size: 



This program maintains a time of day 24 hour 
clock and a calendar, based on a real time clock 
interrupt. 

CLOCK 

Returns the address of the clock variables 

ICLK 

Initialize the clock interrupt 

CLOCK 

None 
ICLK 

None 

CLOCK 

Register A = High byte of the address of the 

time variables. 
Register Y = Low byte of the address of the 
time variables. 
ICLK 
None 



Registers used: All 
Time: 



CLOCK 

14 cycles 
ICLCK 

166 cycles 
CLKINT 

22 cycles minimum if the interrupt is not ours 

33 cycles normally if decrementing tick 
184 cycles maximum if changing to a new year 

Program 191 bytes 
Data 18 bytes 



IRQVEC: 


.EQU 


03FEH 


CLKPRT: 


-EQU 


0C0A0H 


CLKIM: 


.EQU 


01H 


TRUE: 


.EQU 


OFFH 


FALSE: 


.EQU 






APPLE IRQ VECTOR 

SLOT 2 10 LOCATION OF AN INTERRUPT BOARD 

BIT = INTERRUPT REQUEST BIT 

NOT ZERO = TRUE 

ZERO = FALSE 

; RETURN ADDRESS OF THE CLOCK VARIABLES 
CLOCK: 

LDA ACVAR+1 

LDY ACVAR ;GET ADDRESS OF CLOCK VARIABLES 

RTS 



1 1 D REAL-TIME CLOCK AND CALENDAR (CLOCKI 493 



; INITIALIZE CLOCK INTERRUPT 

ICLK: 

PHP ;SAVE FLAGS 

SEI ; DISABLE INTERRUPTS 



; INITIALIZE CLOCK VARIABLES TO THE DEFAULT VALUES 
LDY #8 



LDA 


DFLTS-1,Y 


STA 


CLKVAR-1,Y 


DEY 




BNE 


ICLK1 



ICLK1: 



;SAVE CURRENT IRQ VECTOR 
LDA IRQVEC 
STA NEXTSR 
LDA IRQVEC+1 
STA NEXTSR 

;SET IRQ VECTOR TO CLKINT 
LDA AC I NT 
STA IRQVEC 
LDA ACINT+1 
STA IRQVEC+1 

;HERE SHOULD BE CODE TO INITIALIZE INTERRUPT HARDWARE 

;EXIT 

PLP ; RESTORE FLAGS 

RTS 

; HANDLE THE CLOCK INTERRUPT 
CLKINT: 

PHA ;SAVE REGISTER A 

CLD ;BE SURE PROCESSOR IS IN BINARY MODE 

;CHECK IF THIS IS OUR INTERRUPT 

; THIS IS AN EXAMPLE ONLY 

LDA CLKPRT 

AND #CLKIM ;LOOK AT THE INTERRUPT REQUEST BIT 

BNE OURINT ; BRANCH IF IS OUR INTERRUPT 

PLA ;RESTORE REGISTER A 

JMP (NEXTSR) ;WAS NOT OUR INTERRUPT, 

; TRY NEXT SERVICE ROUTINE 



OURINT: 



; PROCESS OUR INTERRUPT 

DEC TICK 

BNE EXIT1 ; BRANCH IF TICK DOES NOT EQUAL ZERO YET 

; EXIT1 RESTORES ONLY REGISTER A 
LDA DTICK 
STA TICK ;RESET TICK TO DEFAULT VALUE 

;SAVE X AND Y NOW ALSO 

TYA 

PHA 
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TXA 
PHA 



; INCREMENT SECONDS 

INC SEC 

LDA SEC 

CMP #60 

BCC EXIT 

LDY #0 

STY SEC 

; INCREMENT MINUTES 

INC MIN 

LDA MIN 

CMP #60 

BCC EXIT 

STY MIN 



SECONDS = 60 ? 

EXIT IF LESS THAN 60 SECONDS 
ELSE 
ZERO SECONDS, GO TO NEXT MINUTE 



MINUTES = 60 ? 
EXIT IF LESS THAN 60 MINUTES 
ELSE 
ZERO MINUTES, GO TO NEXT HOUR 



; INCREMENT HOURS 
INC HOUR 
LDA HOUR 
CMP #24 
BCC EXIT 
STY HOUR 



HOURS = 24 ? 

EXIT IF LESS THAN 24 HOURS 
ELSE 
ZERO HOURS, GO TO NEXT DAY 



INCREMENT DAYS 

INC DAY 

LDA DAY 

LDX MONTH 

CMP LASTDY-1,X 

BCC EXIT 



GET CURRENT MONTH 

DAY = LAST DAY OF THE MONTH ? 

EXIT IF LESS THAN LAST DAY 



; INCREMENT MONTH (HANDLE 29TH OF FEBRUARY) 



CPX 
BNE 
LDA 
AND 
BNE 



#2 

INCMTH 

YEAR 

#00000011B 

INCMTH 



IS THIS FEBRUARY ? 
BRANCH IF NOT FEBRUARY 
IS IT A LEAP YEAR? 



;BRANCH IF YEAR IS NOT LEAP YEAR 



;THIS IS A FEBRUARY AND A LEAP YEAR SO 29 DAYS NOT 28 DAYS 



LDA 
CMP 
BEQ 



DAY 
#29 
EXIT 



;EXIT IF NOT 29TH OF FEBRUARY 



INCMTH: 



LDY 
STY 
INC 
LDA 
CMP 
BCC 
STY 



#1 

DAY 

MONTH 

MONTH 

#13 

EXIT 

MONTH 



,-CHANGE DAY TO 1, INCREMENT MONTH 



DONE WITH DECEMBER ? 
EXIT IF NOT 
ELSE 
CHANGE MONTH TO 1 (JANUARY) 
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; INCREMENT YEAR 




INC 


YEAR 




BNE 


EXIT 




INC 


YEAR+1 


EXIT: 








.•RESTORE REGISTERS 




PLA 






TAX 






PLA 






TAY 




EXIT1: 


PLA 
RTI 




; ARRAY 


OF THE : 


LAST DAYS OF 


LASTDY; 








.BYTE 


31 




.BYTE 


28 




.BYTE 


31 




.BYTE 


30 




.BYTE 


31 




.BYTE 


30 




.BYTE 


31 




.BYTE 


31 




• BYTE 


30 




• BYTE 


31 




.BYTE 


30 




.BYTE 


31 


;CLOCK 


VARIABLES 


ACVAR: 


.WORD 


CLKVAR 


CLKVAR: 






TICK: 


.BLOCK 


1 


SEC: 


•BLOCK 


1 


MIN: 


.BLOCK 


1 


HOUR: 


.BLOCK 


1 


DAY: 


•BLOCK 


1 


MONTH: 


•BLOCK 


1 


YEAR: 


.WORD 





; DEFAULTS 




DFLTS: 






DTICK: 


• BYTE 


60 


DSEC: 


• BYTE 





DMIN: 


• BYTE 





DHR: 


• BYTE 





DDAY: 


• BYTE 


1 


DMTH: 


• BYTE 


1 


DYEAR: 


• WORD 


1981 



.•INCREMENT LOW BYTE 
; INCREMENT HIGH BYTE 



NEXTSR: .BLOCK 2 
ACINT: .WORD CLKINT 



; RETURN FROM INTERRUPT 



; JANUARY 

;FEBRUARY (EXCEPT LEAP YEARS) 

; MARCH 

; APRIL 

;MAY 

;JUNE 

;JULY 

;AUGUST 

; SEPTEMBER 

; OCTOBER 

; NOVEMBER 

; DECEMBER 



;BASE ADDRESS OF CLOCK VARIABLES 

;TICKS LEFT IN CURRENT SECOND 

; SECONDS 

; MINUTES 

; HOURS 

;DAY = 1 THROUGH NUMBER OF DAYS IN A MONTH 

.•MONTH 1=JANUARY .. 12=DECEMBER 

;YEAR 



.-DEFAULT TICK (60HZ INTERRUPT) 

; DEFAULT SECONDS 

; DEFAULT MINUTES 

; DEFAULT HOURS 

; DEFAULT DAY 

; DEFAULT MONTH 

; DEFAULT YEAR 

.-ADDRESS OF THE NEXT INTERRUPT SERVICE ROUTINE 
.-ADDRESS OF THE CLOCK INTERRUPT ROUTINE 
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SAMPLE EXECUTION: 

This routine prompts the operator for an initial date and time, 
it then continuously displays the date and time in the center of 
the screen. 

The operator may use the escape key to abort the routine. Any 
other key will reprompt for another initial date and time. 



;CLK VARIABLE 


OFFSETS 


OTICK: 


.EQU 


o ; 


OSEC: 


.EQU 


l ; 


OMIN: 


.EQU 


2 ; 


OHR: 


.EQU 


3 ; 


ODAY: 


.EQU 


4 ; 


OMTH: 


.EQU 


5 ; 


OYEAR: 


.EQU 


6 ; 



OFFSET 


TO 


TICK 


OFFSET 


TO 


SECONDS 


OFFSET 


TO 


MINUTES 


OFFSET 


TO 


HOURS 


OFFSET 


TO 


DAY 


OFFSET 


TO 


MONTH 


OFFSET 


TO 


YEAR 



;PAGE ZERO TEMPORARY 
CVARS: .EQU ODOH 



;PAGE ZERO TEMPORARY FOR THE CLOCK VARIABLES 
: ADDRESS 



;APPLE EQUATES FOR THE EXAMPLE 



ESC: 


.EQU 


1BH 


CH 


.EQU 


24H 


CV 


.EQU 


25H 


HOME: 


.EQU 


0FC58H 


VTAB: 


• EQU 


0FC22H 


RCHAR: 


.EQU 


OFDOCH 


COUT: 


.EQU 


OFDEDH 


GETLNl: 


.EQU 


0FD6FH 


SC1104: 







JSR 



ICLK 



ESCAPE CHARACTER 

APPLE MONITOR CURSOR HORIZONTAL POSITION 

APPLE MONITOR CURSOR VERTICAL POSITION 

APPLE MONITOR HOME ROUTINE 

APPLE MONITOR VTAB ROUTINE 

APPLE MONITOR CHARACTER INPUT ROUTINE 

APPLE MONITOR CHARACTER OUTPUT ROUTINE 

APPLE MONITOR GET LINE WITH OUR PROMPT ROUTINE 



INITIALIZE 



;GET TODAYS DATE AND TIME MM/DD/YY HR:MIN:SEC 
• PRINT PROMPT 

;HOME AND CLEAR SCREEN 



PROMPT: 








JSR 


HOME 




LDA 


#0 




STA 


MSGIDX 


PMTLP: 








LDY 


MSGIDX 




LDA 


MSG,Y 




BEQ 


RDTIME 




INC 


MSGIDX 




JSR 
JMP 


WRCHAR 
PMTLP 



BRANCH IF END OF MESSAGE 

INCREMENT TO NEXT CHARACTER 

OUTPUT CHARACTER THROUGH APPLE MONITOR 

CONTINUE 



;READ THE TIME STRING 
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RDTIME: 



JSR 



RDLINE 



;READ A LINE INTO THE APPLE LINE BUFFER AT 
; 20 OH. RETURNS WITH LENGTH IN X 



;GET THE ADDRESS OF THE CLOCK VARIABLES 

JSR CLOCK ;GET CLOCK VARIABLES 

STA CVARS+1 

STY CVARS ; STORE ADDRESS 

; INITIALIZE VARIABLES FOR READING NUMBERS 
STX LLEN 
LDA #0 



STA 



LIDX 



;GET MONTH 
JSR NXTNUM 
LDY #OMTH 
STA (CVARS ),Y 

;GET DAY 
JSR NXTNUM 
LDY #ODAY 
STA (CVARS ),Y 



;GET YEAR 



JSR 
LDY 
STA 
CLC 
ADC 
STA 
LDA 
ADC 
INY 
STA 



NXTNUM 
#OYEAR 
(CVARS) ,Y 

CEN20 
(CVARS ),Y 
CEN20+1 
#0 

(CVARS) ,Y 



;GET HOUR 

JSR NXTNUM 

LDY #OHR 

STA (CVARS ),Y 

;GET MINUTES 
JSR NXTNUM 
LDY #OMIN 
STA (CVARS ),Y 

;GET SECONDS 
JSR NXTNUM 
LDY #OSEC 
STA (CVARS ),Y 

; ENABLE INTERRUPTS 
CLI 



;SAVE LENGTH OF LINE 
INITIALIZE LINE INDEX TO ZERO 



;GET NEXT NUMBER FROM INPUT LINE 
;SET MONTH 



;ADD 1900 TO ENTRY 
;SET LOW BYTE OF YEAR 



;SET HIGH BYTE OF YEAR 



; ENABLE INTERRUPTS 



;HOME AND CLEAR THE SCREEN 
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JSR 



HOME 



LOOP: 



;LOOP PRINTING THE TIME EVERY SECOND 
;MOVE CURSOR TO LINE 12 CHARACTER 12 



LDA 
STA 
STA 
JSR 



#11 
CV 
CH 
VTAB 



; PRINT MONTH 

LDY #OMTH 

LDA (CVARS),Y 

JSR PRTNUM 

LDA #"/" 

JSR WRCHAR 

; PRINT DAY 

LDY #ODAY 

LDA (CVARS),Y 

JSR . PRTNUM 

LDA #"/" 

JSR WRCHAR 

; PRINT YEAR 

LDY #OYEAR 

LDA (CVARS),Y 

SEC 

SBC CEN20 

JSR PRTNUM 



SET CURSOR VERTICAL POSITION 
SET CURSOR HORIZONTAL POSITION 
POSITION CURSOR 



; PRINT THE NUMBER 
; PRINT A SLASH 



; PRINT THE NUMBER 
; PRINT A SLASH 



FORMALIZE YEAR TO 20TH CENTURY 
; PRINT THE NUMBER 



; PRINT SPACE AS DELIMITER 
LDA #" " 
JSR WRCHAR 



; PRINT A SPACE BETWEEN DATE AND TIME 



; PRINT HOURS 

LDY #OHR 

LDA (CVARS),Y 

JSR PRTNUM 

LDA #":" 

JSR WRCHAR 

; PRINT MINUTES 

LDY #OMIN 
LDA (CVARS),Y 

JSR PRTNUM 

LDA #":" 

JSR WRCHAR 

; PRINT SECONDS 
LDY #OSEC 
LDA (CVARS).Y 
JSR PRTNUM 



; PRINT THE NUMBER 
; PRINT A COLON 

; PRINT THE NUMBER 
; PRINT A COLON 

; PRINT THE NUMBER 



;WAIT UNTIL SECONDS CHANGE THEN PRINT AGAIN 
;EXIT IF OPERATOR PRESSES A KEY 
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WAIT: 



RDKEY: 



DONE: 



LDY 
LDA 
STA 



#OSEC 
(CVARS) ,Y 
CURSEC 



; CHECK KEYBOARD 

JSR KEYPRS 

BCS RDKEY 

LDA (CVARS ),Y 

CMP CURSEC 

BEQ WAIT 

JMP LOOP 



;SAVE IN CURRENT SECOND 



;BRANCH IF OPERATOR PRESSES A KEY 
;GET SECONDS 

;WAIT UNTIL SECONDS CHANGE 
.-CONTINUE 



/•OPERATOR PRESSED A KEY - DONE IF ESCAPE, PROMPT OTHERWISE 



JSR 
CMP 
BEQ 
JMP 



LDA 
STA 
LDA 
STA 
JSR 
BRK 
JMP 



RDCHAR 
#ESC 
DONE 
PROMPT 



#0 

CH 

#12 

CV 

VTAB 

SC1104 



;GET CHARACTER 

;IS IT AN ESCAPE? 

/•BRANCH IF IT IS, ROUTINE IS FINISHED 

;ELSE PROMPT OPERATOR FOR NEW STARTING TIME 



/•CURSOR TO HORIZONTAL POSITION 

;MOVE CURSOR TO LINE 13 BELOW DISPLAY 
;CONTINUE AGAIN 



******************************* 

ROUTINE: KEYPRS 

PURPOSE: DETERMINE IF OPERATOR HAS PRESSED A KEY 

ENTRY: NONE 

EXIT: IF OPERATOR HAS PRESSED A KEY THEN 

CARRY = 1 
ELSE 

CARRY = 
REGISTERS USED: P 
******************************* 



KEYPRS: 



PHA 
LDA 
ASL 

PLA 
RTS 



0C000H 
A 



,-READ APPLE KEYBOARD PORT 

,-MOVE BIT 7 TO CARRY 

; CARRY = 1 IF CHARACTER IS READY ELSE 



;******************************* 

.-ROUTINE: RDCHAR 

/•PURPOSE: READ A CHARACTER 

,-ENTRY: NONE 

;EXIT: REGISTER A = CHARACTER 

/•REGISTERS USED: A,P 

;******************************* 
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RDCHAR: 



PHA 
TYA 
PHA 
TXA 
PHA 

JSR 
TSX 
AND 
STA 

PLA 
TAX. 
PLA 
TAY 
PLA 
RTS 



RCHAR 

tOlllllllB 
103H,X 



;SAVE A,X,Y 



,-APPLE MONITOR RDCHAR 

ZERO BIT 7 

STORE CHARACTER IN STACK SO IT WILL BE 

RESTORED TO REGISTER A 
RESTORE A,X,Y 



******************************* 

ROUTINE: WRCHAR 

PURPOSE: WRITE A CHARACTER 

ENTRY: REGISTER A = CHARACTER 

EXIT: NONE 

REGISTERS USED: P 

******************************* 



WRCHAR: 



PHA 
TYA 
PHA 
TXA 
PHA 



;SAVE A,X,Y 



TSX 
LDA 
ORA 
JSR 

PLA 
TAX 
PLA 
TAY 
PLA 
RTS 



103H,X 

#10000000B 

COUT 



GET REGISTER A BACK FROM STACK 

SET BIT 7' 

OUTPUT VIA APPLE MONITOR 

; RESTORE A,X,Y 



******************************* 

ROUTINE: RDLINE 

PURPOSE: READ A LINE TO 200H USING THE APPLE MONITOR 

ENTRY: NONE 

EXIT: REGISTER X = LENGTH OF LINE 

REGISTERS USED: ALL 

******************************** 
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RDLINE: 



JSR 
RTS 



GETLN1 



;CALL THE APPLE MONITOR GETLN1 



******************************** 

ROUTINE: NXTNUM 

PURPOSE: GET A NUMBER FROM THE INPUT LINE IF ANY 

IF NONE RETURN A 
ENTRY: LLEN = LENGTH OF THE LINE 

LIDX = INDEX INTO THE LINE OF NEXT CHARACTER 
EXIT: REGISTER A = LOW BYTE OF NUMBER 

REGISTER Y = HIGH BYTE OF NUMBER 

LIDX = INDEX OF THE FIRST NON NUMERICAL CHARACTER 
REGISTERS USED: ALL 
******************************** 



NXTNUM: 



LDA 
STA 
STA 



#0 

NUM 

NUM+1 



; INITIALIZE NUMBER TO 



;WAIT UNTIL A DECIMAL DIGIT IS FOUND (A CHARACTER BETWEEN 30H AND 39H) 



JSR 
BCS 
CMP 
BCC 
CMP 
BCS 



GETCHR 

EXITNN 

#"0 n 

NXTNUM 

#"9"+l 

NXTNUM 



GETNUM: 



;FOUND A NUMBER 

PHA 

/MULTIPLY NUM BY TEN 



LDA 
ASL 
ROL 
STA 
LDX 
ASL 
ROL 
ASL 
ROL 
CLC 
ADC 
STA 
TXA 
ADC 
STA 



NUM 

A 

NUM+1 

NUM 

NUM+1 

A 

NUM+1 

A 

NUM+1 

NUM 
NUM 

NUM+1 
NUM+1 



;GET NEXT CHARACTER 
;EXIT IF END OF LINE 

;WAIT IF LESS THAN "0" 

;WAIT IF GREATER THAN "9" 

;SAVE CHARACTER ON STACK 



;NUM = LOW BYTE OF NUM * 2 

; REGISTER X = HIGH BYTE OF NUM * 2 

; REGISTER A = LOW BYTE OF NUM * 8 
;NUM + 1 = HIGH BYTE OF NUM * 8 
; (NUM * 8) + (NUM * 2) = NUM * 10 



;ADD THE CHARACTER TO NUM 



PLA 
AND 
CLC 
ADC 
STA 



#00001111B 

NUM 
NUM 



;GET NEXT CHARACTER 

/NORMALIZE THE CHARACTER TO 0..9 
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BCC 


GETNMl 




INC 


NUM+1 


GETNMl: 








;GET 


THE NEXT CHARACTER 




JSR 


GETCHR 




BCS 


EXITNN 




CMP 


#"0" 




BCC 


EXITNN 




CMP 


#"9"+l 




BCC 


GETNUM 


EXITNN: 








LDA 


NUM 




LDY 


NUM+1 




RTS 





EXIT IF END OF LINE 

EXIT IF LESS THAN "0" 

STAY IN LOOP IF DIGIT (BETWEEN "0" AND "9") 

; RETURN THE NUMBER 



******************************** 
ROUTINE: GETCHR 

PURPOSE: GET A CHARACTER FOR THE LINE 
ENTRY: LIDX = NEXT CHARACTER TO GET 

LLEN = LENGTH OF LINE , 
EXIT: IF NO MORE CHARACTERS THEN 

CARRY = 1 
ELSE 

CARRY = 

REGISTER A = CHARACTER 
REGISTERS USED: ALL 
******************************* 



GETCHR: 



EXITGC: 



LDA 
CMP 
BCS 



TAY 
LDA 
AND 
INY 
STY 



RTS 



LIDX 
LLEN 
EXITGC 



200H,Y 
#01111111B 



LIDX 



EXIT CHARACTER GET WITH CARRY = 1 TO 
INDICATE END OF LINE (LIDX >= LLEN) 
OTHERWISE, CARRY IS CLEARED 

GET CHARACTER 

CLEAR BIT 7 

INCREMENT TO NEXT CHARACTER 

CARRY IS STILL CLEARED 



****************************** 

ROUTINE: PRTNUM 

PURPOSE: PRINT A NUMBER BETWEEN 0..99 

ENTRY: A = NUMBER TO PRINT 

EXIT: NONE 

REGISTERS USED: ALL 

***************************** 
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(CLOCK) ■ 503 



PRTNUM : 








LDY 


#"0"-l 




SEC 




DIVIO: 


INY 






SBC 


#10 




BCS 


DIVIO 




ADC 


#10+"0" 




;REG A 


= 1 'S PLACE 




;REG Y 


= 10'S PLACE 




TAX 






TYA 






JSR 


WRCHAR 




TXA 






JSR 


WRCHAR 




RTS 




;.DATA SECTION 




CR 


.EQU 


ODH 


MSG 


.BYTE 


"ENTER DATE 


MSGIDX 


.BLOCK 


1 


NUM: 


.BLOCK 


2 


LLEN: 


.BLOCK 


1 


LIDX: 


.BLOCK 


1 


CEN20: 


.WORD 


1900 


CURS EC: 


.BLOCK 


1 




.END 


; PROGRAM 



INITIALIZE Y TO "0" - 1 

; Y WILL BE THE 10'S PLACE 

INCREMENT 10'S 



;MAKE REGISTER A AN ASCII DIGIT 

;SAVE l'S 

;OUTPUT 10'S PLACE 

;OUTPUT l'S PLACE 



;ASCII CARRIAGE RETURN 
ENTER DATE AND TIME " ,CR, " (MM/DD/YR HR:MN:SC)? " , 
; INDEX INTO MESSAGE 
; NUMBER 

; LENGTH OF INPUT LINE 
; INDEX OF INPUT LINE 
; 20TH CENTURY 
,-CURRENT SECOND 
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Table A-1. 6502 Instructions in Alphabetical Order 





IMTHUCIIOM 


WMIOMTI 


MMIUIE 


ZERO PAGE 


4CCIM 


MPllfO 


IIM, II 


(1*01. V 


IFAGEl 


*•*, * 


AK.V 


flflMIVf 


l«0»ECT 


i 




"7 


COHOITION coot I 


MfMOMIC 


OflKHTIO* 


OP 


N 


# 


OP 


N 


# 


OP 


N 


# 


OP 


N 


# 


OP 


N 


* 


OP 


N 


# 


OP 


N 


# 


OP 


N 


# 


OP 


N 


# 


OP 


N 


# 


OP 


N 


# 


OP 


N 


# 


OP 


N 


# 


N Z C l vl 


ADC 
AND 
ASL 
BCC 
BCS 


A+M+C-A (4}(1) 
A AM-* A (1) 


69 
29 


2 
2 


2 
2 


6D 
2D 

0E 


4 
4 
6 


3 
3 

3 


66 
25 
•6 


3 
3 

5 


2 
2 
2 


0A 


2 


• 








61 
21 


6 
6 


2 
2 


71 
31 


6 
5 


2 
2 


75 
35 
16 


4 
4 
6 


2 
2 

2 


?D 
3D 

IE 


4 
4 
7 


3 
3 
3 


79 
39 


4 
4 


3 
3 


99 

B0 


2 

2 


2 

2 














j j j - - - 


C<|7 o|<a 
BRANCH ON C-f (2) 

BRANCH ON C-1 (2) 


BIT 

BMI 
BNE 
BPL 


BRANCH ON Z-1 (2) 
A AM 

BRANCH ON N-l (2) 
BRANCH ON Z-4 (2) 
BRANCH ON N-fl <2» 








2C 


4 


3 


24 


3 


2 












































F9 

39 
D9 
19 


2 

2 
2 

2 


2 

2 
2 
2 














M, 7 - - - M, 


BR K 
BVC 

8VS 
CLC 

CLO 


(Sat Fig. A-1) 

BRANCH ON V-9 (2) 

BRANCH ON V-1 (21 

• -C 

9-D 


























W 

18 
D8 


7 

2 

2 


1 

1 

1 
































59 

79 


2 

2 


2 

2 














« 

t - 


CLI 
CLV 
CMP 
CPX 

CP Y 


• -1 

0-V 

A-M (1) 

X-M 

Y-M 


C9 
E9 

C0 


2 
2 

2 


2 
2 
2 


CD 
EC 
CC 


4 

4 

4 


3 
3 
3 


C5 
E4 

C4 


3 
3 
3 


2 
2 

2 








58 
B8 


2 
2 


1 
1 


CI 


6 


2 


D1 


5 


2 


D5 


4 


2 


DO 


4 


3 


D9 


4 


3 




















t 

( 

J J / - - - 

/ J 4 

J J J 


DEC 
DEX 
DE Y 
EOR 
I NC 


M-1 -M 
X-1 -*X 

Y-1 -* Y 

A V M-A (It 

M + 1 - M 


49 


2 


2 


CE 

40 
EE 


6 

4 
6 


3 

3 

3 


C6 

45 
E6 


5 

3 
5 


2 

2 

2 








CA 
88 


2 
2 


1 

1 


41 


6 


2 


51 


5 


2 


06 

SB 
F6 


6 

4 
6 


2 

2 
2 


DE 

5D 

FE 


7 

4 
7 


3 

3 

3 


59 


4 


3 




















J j 

V J 

J J - - - - 

J j 

J J 


IN X 
1NY 
JMP 
JSR 
L D A 


X + 1-X 

Y + 1 -Y 

JUMP TO NEW LOC 

<Sm fig. A-2) JUMP SUB 

M~A lit 


A9 


2 


2 


4C 
20 

AD 


3 
6 

4 


3 
3 
3 


A5 


3 


2 








E8 

C8 


2 
2 


1 


A1 


6 


2 


B1 


5 


2 


B5 


4 


2 


BD 


4 


3 


B9 


4 


3 








6C 


5 


3 








j j - _ - _ 



505 



506 
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Table A-1. 6502 Instructions in Alphabetical Order (Continued) 







■MEDIATE 


ABMLUTf 


ZERO PASE 


ACCUM. 


MPllEOi 


(MO, XI 


Wll.t 


2.MUI 


AM,X 


ABI.t 


MLATIVE 


MMKCT 


i. pmi. r 


CONDITION C00EI 


MNEMONIC 


Off NATION 


OP 


N 


# 


OP 


N 


# 


OP 


N 


# 


OP 


H 


# 


OP 


N 


# 


OP 


N 


# 


OP 


N 


# 


OP 


N 


# 


OP 


N 


# 


OP 


N 


# 


OP 


N 


# 


OP 


N 


# 


OP 


N 


# 


N Z C 1 D V 


LDX 


M-X (11 


A2 


2 


2 


AE 


4 


3 


A6 


3 


2 






































BE 


4 


3 














B6 


4 


2 


j V _ _ _ - 


LDY 


M-Y m 


A9 


2 


2 


AC 


4 


3 


A4 


3 


2 


























B4 


4 


2 


BC 


4 


3 


























V • 


LSR 


9->-l7 0r*-C 








4E 


6 


3 


46 


5 


2 


4A 


2 


1 




















56 


6 


2 


5E 


7 


3 


























9 rf J - - - 


NOP 


NO OPERATION 


























EA 


2 


1 












* 






































OR A 


A VM-* A 


«9 


2 


2 


0D 


4 


3 


05 


3 


2 














91 


6 


2 


11 


S 


2 


IS 


4 


2 


1D 


4 


3 


19 


4 


3 




















V V - - - - 


PH A 


A -> Ms S-1 - S 


























48 


3 


1 




















































PHP 


P -* Ms S-1 - S 


























98 


3 


1 




















































PLA 


S + 1 - S Ms -» A 


























68 


4 


1 


















































-/•/---- 


PLP 

ROL 


S + 1-S Mi-P 








2E 


6 


3 


26 


5 


2 


2A 


2 


1 


28 


4 


1 














36 


6 


2 


3E 


7 


3 


























(RESTOREDI 
V • • - - - 


Ufl7 Ol^Cl^ 


ROR 
HTI 


(SwFig. A-1JRTRNINT. 








6E 


6 


3 


66 


5 


2 


6A 


2 


1 


49 


6 


t 














76 


6 


2 


7E 


7 


3 


























j j j - - - 
RESTOREDI 


RTS 


(Se* Fig. A-21 RTRN SUB 


























60 


6 


1 




















































SBC 


A-M-C-.A (11 


E9 


2 


2 


ED 


4 


3 


ES 


3 


2 














Et 


6 


2 


F1 


5 


2 


F6 


4 


2 


FD 


4 


3 


F9 


4 


3 




















rf J (3) - - ./ 


SEC 


1 -C 


























38 


2 


1 


















































_ _ i _ _ - 


SED 


1 -D 


























FB 


2 


1 


















































- - - - 1 - 


SEI 


t-«l 


























78 1 


2 


1 


















































___!„- 


ST A 


A-M 








8D 


4 


3 


85 


3 


2 














81 


6 


2 


91 


6 


2 


95 


4 


2 


9D 


5 


3 


99 


5 


3 




















- - - 


STX 


X-M 








BE 


4 


3 


86 


3 


2 
























































96 


4 


2 




STY 


Y-.M 








8C 


4 


3 


84 


3 


2 


























94 


4 


2 


































TAX 


A-X 


























AA 


2 


1 


















































/,/___- 


TAY 


A-Y 


























A» 


2 


1 


















































7 J - - - ~ 


TSX 


S-X 


























BA 


2 


1 


, 
















































j •--•-- 


TXA 


X-A 


























8A 


2 


1 


















































V V ~ - - - 


TXS 


X->S 


























9A 


2 


1 
















































1 ----- - 


T Y A 


Y-. A 


























98 


2 


1 
















































J ^ j - - - - - 


(11 ADD 1 TO "N" IF PAGE BOUNDARY IS CROSSED X INDEX X 4- ADD - NOT MODIFIED 


121 ADD 1 TO "N" IF BRANCH OCCURS TO SAME PAGE Y INDEX Y - SUBTRACT M 7 MEMORYBIT7 
ADD 2 TO "N" IF BRANCH OCCURS TO DIFFERENT PAGE A ACCUMULATOR A AND M 6 MEMORY BIT 6 


13) CARRY NOT - BORROW M MEMORY PER EFFECTIVE ADDRESS V OR N NUMBER OF CLOCK 
(4) IF IN DECIMAL MODE Z FLAG IS INVALID Ms MEMORY PER STACK POINTER V EXCLUSIVE OR CYCLES 

ACCUMULATOR MUST BE CHECKED FOR ZERO RESULT / MODIFIED # NUMBER OF BYTES 



Table A-2. 6502 Operation Codes in Numerical Order 



\LSD 


• 




2 


, 


, 


5 


6 


7 


B 


9 


A 


B 


C 


D 


E 


F 


lsd/ 


MSc\ 


































/msd 


9 


8RK 


ORA IND, X 




..- 




ORA Z, Pag. 


ASL Z.PAGE 

ASL-Z,Pigi,X 




PHP 

sms..... 


ORA- IMM 

Qlt*-WS; Y' 


ASL A 






ORA ABS 
OUA-AW, X 


ASL ABS 

ASMM&X 




• 
1 


2 


JSR 


AND INO, X 






BIT-Z, P*g* 


AND Z. P*v* 


not z P»«t 




PLP 


ANDIMM 


ROL A 




BIT-ABS 


AND ABS 


ROL ABS 






3 




*NO=til&,*-i 








JU«E^)*i«l,X 


Km&riM*x 




8EG ■ 


*ND-Ai8.Y 








*MtW««. K 


HOt.-Ai«,X 




3 


4 


RTI 


EQRIND. X 








EORZ.Plgt 


LSRZ.PW 




PHA 


EOR IMM 


LSR. A 




JMP-A8S 


EOR ABS 


LSR-ABS 




* 


■ 8 ■ 


sve ■ 


ADC- INO. X 








wn-i.fim* 


L^Z,;f*ii.X 




feiii" ■ ■■ 


mmmm^- 








:iOPW««9»X, 


p^x 




8 


6 


RTS 








AOCZ.Paga 


ROR Z. P»nt 




PLA 


A DC IMM 


ROR A 




JMP-IND 


ADC ABS 


H OH ABS 




* 




*vs 


>: '.*S&tii&iT : : 








t^e^mmn 






iftu- '=;".:■ -J 


:*DC.*88.y: 








M&AlBVX 






7 


8 




STA-IND. X 






STY-Z. P*gt 


STAZ.Pagt 


STX -Z, Pig. 




DEY 




TXA 




STV ABS 


ST A ABS 


STX ABS 






■■■■*: 


«»■' ■ ; 


.■■■(itA-rtltfe;*-- 






SlVi^^K 


i^i^tm* 


PP^ift^*:: 




TY* 


:Kr*v#ii.'Y:,; 


tf*'- : - : 






STA-A«,:)( 






II 


A 


LDY IMM 


LDAIND. X 


LDXIMM 




LDY -Z, Pig. 


LDAZ,P*oa 


LOXZ,P»o* 




TAY 


LDAIMM 


TAX 




LDY ABS 


LDAABS 


LDX ABS 




A 


'■ *■ 


m~- 


: 'ii§A<wie,;v 

CMP-IND. X 






i.iiiy^ttliMt 


(**aNi»s* 


l-EW-^PlpY 




fiit*'--^: 


: t.6AliS.Y: 


WK , .. 




tBV-AM.X 


:«MM*fc* 


:.y3XJMK. Y 




• 


C 


;pyimm 






Cpy ZP*g* 


CMPZ.Ptg* 


DECZ,P»g. 




INV 


CMP.IMM 


DEX 




CPY ABS 


CMP ABS 


DEC ABS 






Q 


IKE 


CMO-INEt. V 








t^^MiMx 


mcwm* 




tm~>- 


'■&&&&,■*' 








OMP-MM^X 


.WIC-AM.X 




O 


E 


;px IMM 


SBC IND. X 






CPXZ.P.J. 


SBCZ.Plo* 


INCZ.P«* 




INX 


SBC -IMM 


NOP 




CPXABS 


SBC ABS 


INC ABS 






f 


KQ . . 


sac ind v 








StCZP*** 


■«i»w« 




1|D> ^ - 


i«C-*»«,l f 








S0&KM..X 


WC-AM. X 
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Table A-3. Summary of 6502 Addressing Modes 



IMM ■ IMMEDIATE ADDRESSING - THE OPERAND IS CONTAINED IN THE SECOND BYTE OF THE 
INSTRUCTION. 

ABS ■ ABSOLUTE ADDRESSING - THE SECOND BVTE OF THE INSTRUCTION CONTAINS THE 8 
LOW ORDER BITS OF THE EFFECTIVE ADDRESS. THE THIRD BYTE CONTAINS THE 8 
HIGH ORDER BITS OF THE EFFECTIVE AODRESS. 

Z, PAGE ZERO PAGE ADDRESSING - SECOND BYTE CONTAINS THE 8 LOW ORDER BITS OF 
THE EFFECTIVE ADDRESS. THE 8 HIGH ORDER BITS ARE ZERO. 

A, ■ ACCUMULATOR - ONE BYTE INSTRUCTION OPERATING ON THE ACCUMULATOR. 

Z, PAGE. X ■ Z PAGE, Y - ZERO PAGE INDEXED - THE SECOND BYTE OF THE INSTRUCTION IS 
ADDED TO THE INDEX ICARRY IS DROPPED) TO FORM THE LOW ORDER BYTE OF THE 
EA. THE HIGH ORDER BYTE OF THE EA IS ZERO 

ABS, X ABS, Y ABSOLUTE INDEXED _ THE EFFECTIVE ADDRESS IS FORMED BY AODING THE 
INDEX TO THE SECOND AND THIRD BVTE OF THE INSTRUCTION 

IIND. X) ■ INDEXED INDIRECT - THE SECOND BYTE OF THE INSTRUCTION IS ADDED TO THE X 
INDEX, DISCARDING THE CARRY, THE RESULTS POINTS TO A LOCATION ON PAGE 
ZERO WHICH CONTAINS THE 8 LOW ORDER BITS OF THE EA. THE NEXT BYTE CON- 
TAINS THE 8 HIGH ORDER BITS. 

IIND), Y ■ INDIRECT INDEXED - THE SECOND BYTE OF THE INSTRUCTION POINTS TO A LOCA- 
TION IN PAGE ZERO. THE CONTENTS OF THIS MEMORY LOCATION IS ADDED TO THE Y 
INDEX, THE RESULT BEING THE LOW ORDER EIGHT BITS OF THE EA. THE CARRY 
FROM THIS OPERATION IS ADDED TO THE CONTENTS OF THE NEXT PAGE ZERO LOCA- 
TION, THE RESULTS BEING THE 8 HIGH OROER BITS OF THE EA. 



Table A-4. 6502 Assembler Directives, Labels, and Special Characters 



ASSEMBLER DIRECTIVES 

• OPT - SPECIFIES OPTIONS FOR ASSEMBLY 

OPTIONS ARE: (OPTIONS LISTED FIRST ARE THE DEFAULT VALUES). 

NOC (COU OR CNT) - DO NOT LIST ALL INSTRUCTIONS AND THEIR USAGE. 

NOG (GEN) - DO NOT GENERATE MORE THAN ONE LINE OF CODE FOR ASCII STRINGS 

XRE (NOX) - PRODUCE A CROSS-REFERENCE LIST IN THE SYMBOL TABLE. 

ERR INOEI - CREATE AN ERROR FILE. 

MEM INOMI - CREATE AN ASSEMBLER OBJECT OUTPUT FILE. 

LIS INOLI - PRODUCE A FULL ASSEMBLY LISTING. 

• BYTE - PRODUCES A SINGLE BYTE IN MEMORY EQUAL TO EACH OPERAND SPECIFIED. 

• WORD , PRODUCES AN ADDRESS (2 BYTES) IN MEMORY EQUAL TO EACH OPERAND SPECIFIED 

• DBYTE - PRODUCES TWO BYTES IN MEMORY EQUAL TO EACH OPERAND SPECIFIED. 

• SKIP - GENERATE THE NUMBER OF BLANK LINES SPECIFIED BY THE OPERAND. 

• PAGE - ADVANCE THE LISTING TO THE TOP OF A NEW PAGE AND CHANGE TITLE 

• END - DEFINES THE END OF A SOURCE PROGRAM. 

• - - DEFINES THE BEGINNING OF A NEW PROGRAM COUNTER SEQUENCE. 

LABELS 

LABELS ARE THE FIRST FIELD AND MUST BE FOLLOWED BY AT LEAST ONE SPACE OR A COLON I:) 
LABELS CAN BE UP TO 6 ALPHANUMERIC CHARACTERS LONG AND MUST BEGIN WITH AN ALPHA 

CHARACTER. 
A.X.Y.S.P AND THE 56 OPCODES ARE RESERVED AND CANNOT BE USED AS LABELS. 
LABEL - EXPRESSION CAN BE USED TO EQUATE LABELS TO VALUES. 
LABEL •-• +N CAN BE USED TO RESERVE AREAS IN.MEMORY. 

CHARACTERS USED AS SPECIAL PREFIXES: 

• INDICATES AN ASSEMBLER DIRECTIVE 

» SPECIFIES THE IMMEDIATE MODE OF ADDRESSING 

$ SPECIFIES A HEXADECIMAL NUMBER 

9 SPECIFIESAN OCTAL NUMBER 

% SPECIFIES A BINARY NUMBER 

' SPECIFIESAN ASCII LITERAL CHARACTER 

I) INDICATES INDIRECT ADDRESSING 

: INDICATES FOLLOWING TEXT ARE COMMENTS 

< SPECIFIES LOWER HALF OF A 16 BIT VALUE 

> SPECIFIES UPPER HALF OF A 16 BIT VALUE 
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ADDRESS 


MEMORY 








ADH 


ADL 


MNEMONIC 


OP CODE 


LOW MEMORY 




1 
1 
t 





1 


F 



/ status/ 

//' zx -// 

'0, 


) : 


♦— 


SP AFTER IROOR NMI 
BUT BEFORE RTI 




e i 

1 


1 


2 


> STACK 


4 


SP BEFORE IROOR NMI 
AND AFTER RTI 




k* 














PC i 




3 

• 3 
9 3 

9 4 

e 4 

4 


e 










9 

2 

5 
6 
7 








PC AT TIME OF IRQ OR 
NMI THIS INSTRUCTION 
WILL COMPLETE BEFORE 
INTERRUPT IS SERVICED 
PC AFTER RTI 












RTI 












MAIN BODY 












INTERRUPT 










F 
F 


A 


AOL 
ADH 




I 


NMI VECTOR 










F 
F 


C 
D 


AOL 
ADH 




} 


RESET VECTOR 










F 
F 


E 


ADL 


0S 
04 


} 


IRQ VECTOR 






F ! ™.. 





















Figure A-1. Response to IRQ and NMI Inputs and 
Operation of the RTI and BRK Instructions 




SP BEFORE JSR AND AFTER 
RETURN IRTSl FROM 
SUBROUTINE 



JUMP TO SUBROUTINE 



RETURN FROM SUBROUTINE TO 
THIS LOCATION 



RETURN FROM SUBROUTINE 



HIGH MEMORY 



Figure A-2. Operation of the JSR and RTS Instructions 
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7 











A 


I 




7 











Y 


I 




7 











X 


I 


15 


7 







I 


PCH 




PCL 


| 






8 7 









Ml 


S 


I 



7 



















[NlVlXlBlDlllZld 

























































ACCUMULATOR 


A 


INDEX REGISTER 


Y 


INDEX REGISTER 


X 


PROGRAM COUNTER "PC" OR "P" 


STACK POINTER 


"S" 


PROCESSOR STATUS "P" OR "F" 


CARRY 


1 - CARRY OR NO BORROW 


ZERO 


1 - RESULT ZERO 


IRQ DISABLE 


1 - DISABLE 


DECIMAL MODE 


1 - DECIMAL. - BINARY 


BRK COMMAND 


1 ALWAYS 


NOT USED 




OVERFLOW 


1 « TRUE 


NEGATIVE 


1 - NEGATIVE 



Figure A-3. Programming Model of the 6502 Microprocessor 



Appendix B Programming Reference 

for the 6522 Versatile 
Interface Adapter (VIA) 



Copyright ° 1982 Synertek, Inc. 
Reprinted by permission. 



VSS[; 1 
PAO,- 2 

™[ 3 
'«[» 

PA3C 5 
PA4 £ 6 
PA5 Q 7 
PA6 C 8 
PA7 C 9 
PBO C 10 
PB1 C 11 
P82 C 

PB3 n 

PB4 C 
PB5 C 
PB6 C 
PB7 Q 
CB1 C 
CB2 £ 
VCC C 



40 
39 
38 
37 
36 
35 
34 
33 
32 

SY6622 31 
30 
29 
28 
27 
26 



25 3 



3 CA1 
3 CA2 
3 RSO 
3 RS1 
3 RS2 
I] RS3 
D RES 
3 DO 
DD1 

m D2 

3 D3 
D D4 
3 05 
3 D6 
UD7 
<t>2 
3 CS1 
D CS2 

3 <"w 

I] IRQ 



Figure B-1. 6522 Pin Assignments 
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INTERRUPT 
CONTROL 



DATA/ 1 K 

BUS \, / 



DATA 

BUS 

BUFFERS 



> 



FLAGS 

(IFR) 



ENABLE 
<IER) 



RES- 
R/W- 



CS1- 
CS2- 



RSO- 
RS1- 
RS2- 
RS3- 



CHIP 
ACCESS 
CONTROL 



> 



PERIPHERAL 
(PCRI 



AUXILIARY 
(ACR) 



FUNCTION 
CONTROL 



LATCH { LATCH 
(T11H) I (TILL) 

-I- 

COUNTER j COUNTER 
(TIC-HI I (T1C-L1 



TIMER 1 
TIMER 2 



L^> 



LATCH 
(T2L-U 



COUNTER 
(T2C-H) 



COUNTER 
(T2C-U 



rV 



INPUT LATCH 
(IRA) 



OUTPUT 
(ORA) 



DATA DIR. 
(DDRA) 



« 



BUFFERS 

(PA) 



c=> 



PORTA REGISTERS 



> 



■ CA1 
-CA2 



HANDSHAKE 
CONTROL 






SHIFT REG. 
(SR> 



-*■ CBl 
-*■ CB2 



PORT B REGISTERS 



o 



(NPUT LATCH 
ORB) 



OUTPUT 
(ORB) 



DATA DIR. 
(DDRB) 



o 



BUFFERS 
(PB) 



c=> 



Figure B-2. Block Diagram of the 6522 Versatile Interface Adapter (VIA) 



Table B-1. 6522 Internal Registers 



Register 
Number 


RS Coding 


Register 
Oesig. 


Description 


RS3 


RS2 


RS1 


RSO 


Write 


Read 

















ORB/IRB 


Output Register "B" 


Input Register "B" 


1 











1 


ORA/IRA 


Output Register "A" 


Input Register "A" 


2 








1 





DDRB 


Data Direction Register "B" 


3 








1 


1 


DDRA 


Data Direction Register "A" 


4 





1 








T1C-L, 


T1 Low-Order Latches 


T1 Low-Order Counter 


5 





1 





1 


T1C-H 


T1 High-Order Counter 


6 





1 


1 





T1L-L 


T1 Low-Order Latches 


7 





1 


1 


1 


T1L-H 


T1 High-Order Latches 


8 













T2C-L 


T2 Low-Order Latches 


T2 Low-Order Counter 


9 










1 


T2C-H 


T2 High-Order Counter 


10 







1 





SR 


Shift Register 


11 







1 


1 


ACR 


Auxiliary Control Register 


12 




1 








PCR 


Peripheral Control Register 


13 




1 





1 


IFR 


Interrupt Flag Register 


14 




1 


1 





IER 


Interrupt Enable Register 


15 




1 


1 


1 


ORA/IRA 


Same as Reg 1 Except No "Handshake" 
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6502 ASSEMBLY LANGUAGE SUBROUTINES 



• PBO 

■ PB1 

■ PB2 

■ PB3 

■ PB4 

• PB5 

■ PB6 
. PB7 



OUTPUT REGISTER "B" (ORBI 

OR 
INPUT REGISTER "B" IORB] 



Pin 

Data Direction 

Selection 


WRITE 


READ 


DDRB = "1" (OUTPUT) 


MPU writes Output Level 
(ORB) 


MPU reads output register bit 
in ORB. Pin level has no affect. 


DDRB = "0" (INPUT) 
(Input latching disabled) 


MPU writes into ORB, but 
no effect on pin level, until 
DDRB changed. 


MPU reads input level on PB 
pin. 


DDRB-"0" (INPUT) 
(Input latching enabled) 


MPU reads IRB bit, which is 
the level of the PB pin at the 
time of the last CB1 active 
transition. 



Figure B-3. Output Register B and Input Register B (Register 0) 



7 6 5 4 3 2 10 



■ PAO 
• PA1 
■PA2 
■PA3 
■PA4 
•PA5 
■PA6 
■PA7 



OUTPUT REGISTER "A" (ORAI 

OR 

INPUT REGISTER "A" (IRA) 



Pin 

Data Direction 

Selection 


WRITE 


READ 


DDRA = "1" (OUTPUT) 
(Input latching disabled) 


MPU writes Output Level 
(ORA). 


MPU reads level on PA pin. 


DDRA«"1" (OUTPUT) 
(Input latching enabled) 


MPU reads IRA bit which is 
the level of the PA pin at the 
time of the last CA1 active 
transition. 


DDRA = "0" (INPUT) 
(Input latching disabled) 


MPU writes into ORA, but 
no effect on pin level, until 
DDRA changed. 


MPU reads level on PA pin, 


DDRA = "0" (INPUT) 
(Input latching enabled) 


MPU reads IRA bit which is 
the level of the PA pin at the 
time of the last CA1 active 
transition. 



Figure B-4. Output Register A and Input Register A (Register 1) 
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- PBO/PAO 
-PB1/PA1 

- PB2/PA2 

- PB3/PA3 

- PB4/PA4 
. PB5/PA5 
. PB6/PA6 
. PB7/PA7 



DATA DIRECTION REGISTER 
"B" OR "A" (DDRB/DDRAI 



7 6 5 4 3 2 1 



■256 

-512 

-1024 

-2048 

-4096 

-8192 

-16384 

- 32768 



COUNT 
VALUE 



"0" ASSOCIATED PB/PA PIN IS AN INPUT 

IHIGHIMPE DANCE] 
"1" ASSOCIATED PB/PA PIN IS AN OUTPUT. 

WHOSE LEVEL IS DETERMINED BY 

ORB/ORA REGISTER BIT. 



WRITE -8 BITS LOADED INTO T1 HIGH-ORDER 
LATCHES. ALSO, AT THIS TIME BOTH 
HIGH AND LOW-ORDER LATCHES 
TRANSFERRED INTO T1 COUNTER. 
T1 INTERRUPT FLAG ALSO IS RESET. 

READ - 8 BITS FROM T1 HIGH-ORDER COUNTER 
TRANSFERRED TO MPU. 



Figure B-5. Data Direction Registers B 
(Register 2) and A (Register 3) 



Figure B-7. Timer 1 High-Order Counter 
(Register 5) 



7 6 5 4 3 2 10 



-1 

-2 

-4 

-8 

-16 

-32 

-64 

-128 



_ COUNT 
VALUE 



7 6 5 4 3 2 10 



- 1 

■2 

-4 

-8 

-16 

-32 

-64 

-128 



COUNT 
VALUE 



-8 BITS LOADED INTO T1 LOW-ORDER 
LATCHES. LATCH CONTENTS ARE 
TRANSFERRED INTO LOW-ORDER 
COUNTER AT THE TIME THE HIGH- 
ORDER COUNTER IS LOADED (REG 5). 
8 BITS FROM T1 LOW-ORDER COUNTER 
TRANSFERRED TO MPU. IN ADDITION, 
T1 INTERRUPT FLAG IS RESET (BIT 6 
IN INTERRUPT FLAG REGISTER!. 



WRITE - 8 BITS LOADED INTO T1 LOW-ORDER 
LATCHES. THIS OPERATION IS THE 
SAME AS WRITING INTO 
REGISTER 4. 

READ - 8 BITS FROM T1 LOW-ORDER LATCHES 
TRANSFERRED TO MPU. UNLIKE REG 4 
OPERATION. THIS DOES NOT CAUSE 
RESET OF T1 INTERRUPT FLAG. 



Figure B-6. Timer 1 Low-Order Counter 
(Register 4) 



Figure B-8. Timer 1 Low-Order Latches 
(Register 6) 
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6502 ASSEMBLY LANGUAGE SUBROUTINES 



7 6 5 4 3 2 10 



• 256 
-512 

- 1024 
■ 2048 
-4096 
-8192 

- 16384 

- 32768 



COUNT 
VALUE 



WRITE - 8 BITS LOADED INTO T1 HIGH-ORDER 
LATCHES. UNLIKE REG 4 OPERATION 
NO LATCH-TO-COUNTER TRANSFERS 
TAKE PLACE. 

READ - 8 BITS FROM T1 HIGH ORDER LATCHES 
TRANSFERRED TO MPU. 



4 3 2 10 



-256 

-612 

-1024 

-2048 

-4096 

-8192 

- 16384 

-32768 



COUNT 
VALUE 



8 BITS LOADED INTO T2 HIGH-ORDER 
COUNTER. ALSO, LOW-ORDER LATCHES 
TRANSFERRED TO LOW-ORDER 
COUNTER. IN ADDITION, T2 INTERRUPT 
FLAG IS RESET. 

8 BITS FROM T2 HIGH-ORDER COUNTER 
TRANSFERRED TO MPU. 



Figure B-9. Timer 1 High-Order Latches 
(Register 7) 



Figure B-11. Timer 2 High-Order Counter 
(Register 9) 



6 6 4 3 2 1 



1 
-2 
■ 4 
-8 
-16 
-32 
-64 
-128 



COUNT 
VALUE 



7 


6 


5 


4 


3 


2 


1 






SHIFT 
- REGISTER 
BITS 



WRITE - 8 BITS LOADED INTO T2 LOW-ORDER 

LATCHES. 
READ - 8 BITS FROM T2 LOW-ORDER COUNTER 

TRANSFERRED TO MPU. T2 INTERRUPT 

FLAG IS RESET. 



NOTES: 

1. WHEN SHIFTING OUT. BIT 7 IS THE FIRST BIT 
OUT AND SIMULTANEOUSLY IS ROTATED BACK 
INTO BIT 0. 

2. WHEN SHIFTING IN, BITS INITIALLY ENTER 
BIT AND ARE SflTFTED TOWARDS BIT 7. 



Figure B-10. Timer 2 Low-Order Counter 
(Register 8) 



Figure B-12. Shift Register 
(Register 10) 
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T1 TIMER CONTROL- 



7 


6 


OPERATION 


PB7 








TIMED INTERRUPT 
EACH TIME T1 IS 
LOADED 


DISABLED 





1 


CONTINUOUS 
INTERRUPTS 


1 





TIMED INTERRUPT 
EACH TIME T1 IS 
LOADED 


ONESHOT 
OUTPUT 


1 


1 


CONTINUOUS 
INTERRUPTS 


SQUARE 

WAVE 

OUTPUT 



T2 TIMER CONTROL- 



5 


OPERATION 





TIMED INTERRUPT 


1 


COUNT DOWN WITH 
PULSES ON PB6 



5 4 3 2 



LATCH ENABLE/DISABLE 



0- DISABLE 

1 - ENABLE LATCHING 



SHIFT REGISTER CONTROL 



4 


3 


2 


OPERATION 











DISABLED 








1 


SHIFT IN UNDER CONTROL OF T2 





1 





SHIFT IN UNDER CONTROL OF «2 





1 


1 


SHIFT IN UNDER CONTROL OF EXT. CLK 


1 








SHIFT OUT FREE-RUNNING AT T2 RATE 


1 





1 


SHIFT OUT UNDER CONTROL OF T2 


1 


1 





SHIFT OUT UNDER CONTROL OF«2 


1 


1 


1 


SHIFT OUT UNDER CONTROL OF EXT. CLK. 



Figure B-13. Auxiliary Control Register (Register 11) 



7 



CB2 CONTROL- 



7 


6 


5 


OPERATION 











INPUT-NEGATIVE ACTIVE EDGE 








1 


INDEPENDENT INTERRUPT 
INPUT NEG EDGE 





1 





INPUT-POSITIVE ACTIVE EDGE 





1 


1 


INDEPENDENT INTERRUPT 
INPUT POS EDGE 


1 








HANDSHAKE OUTPUT 


1 





1 


PULSE OUTPUT 


1 


1 





LOW OUTPUT 


1 


1 


1 


HIGH OUTPUT 



CB1 INTERRUPT CONTROL - 



= NEGATIVE ACTIVE EDGE 

1 = POSITIVE ACTIVE EDGE 



- CAT INTERRUPT CONTROL 



= NEGATIVE ACTIVE EDGE 

1 = POSITIVE ACTIVE EDGE 



CA2 CONTROL 


3 


2 


1 


OPERATION 











INPUT-NEGATIVE ACTIVE EDGE 








1 


INDEPENDENT INTERRUPT 
INPUT-NEG EDGE 





1 





INPUT-POSITIVE ACTIVE EDGE 





1 


1 


INDEPENDENT INTERRUPT 
INPUT-POS EDGE 


1 








HANDSHAKE OUTPUT 


1 





1 


PULSE OUTPUT 


1 


1 





LOW OUTPUT 


1 


1 


1 


HIGH OUTPUT 



Figure B-14. Peripheral Control Register (Register 12) 
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LANGUAGE SUBROUTINES 



1 


6 


5 


4 


3 2 


1 





% 
















| 




SET BY 


CLEARED BY 




L-CA2- 
CA1 


CA2 ACTIVE EDGE 


READ OR WRITE 
REG 1 (ORA) 




CA1 ACTIVE EDGE 


READ OR WRITE 
REG 1 (ORAI 




-SHIFT REG- 


COMPLETE 8 SHIFTS 


READ OR WRITE 
SHIFT REG 




l cb 




CB2 ACTIVE EDGE 


READ OR WRITE ORB 










DB1 ACTIVE EDGE 


READ OR WRITE ORB 








TIME OUT OF T2 


READ T2 LOW OR 
WRITE T2 HIGH 




,. 




TIMEOUT OF T1 


READT1 LOW OR 
WRITE T1 HIGH 




i imtn 


' 








ANY ENABLED 
INTERRUPT 


CLEAR ALL 
INTERRUPTS 

















Figure B-15. Interrupt Flag Register (Register 13) 



7 6 5 4 3 2 10 



-CA2 
-CA1 

-SHIFT REG 
-CB2 
-CB1 
-TIMER 2 
-TIMER 1 
-SET/CLEAR 



= INTERRUPT DISABLED 

1 = INTERRUPT ENABLED 



NOTES: 

1. IF BIT 7 IS A "0". THEN EACH "1" IN BITS - 6 DISABLES THE 
CORRESPONDING INTERRUPT. 

2. IF BIT 7 IS A "1 ", THEN EACH "1" IN BITS - 6 ENABLES THE 
CORRESPONDING INTERRUPT. 

3. IF A READ OF THIS REGISTER IS DONE, BIT 7 WILL BE "1" AND 
ALL OTHER BITS WILL REFLECT THEIR ENABLE/DISABLE STATE. 



Figure B-16. Interrupt Enable Register (Register 14) 
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MSD 





1 


2 


3 


4 


5 


6 


7 


LSD 




000 
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Glossary 



Absolute address. An address that identifies a storage location or a device without 
the use of a base, offset, or other factor. See also Effective address, Relative 
offset. 

Absolute addressing. An addressing mode in which' the instruction contains the 
actual address required for its execution. In 6502 terminology, absolute 
addressing refers to a type of direct addressing in which the instruction con- 
tains a full 16-bit address as opposed to zero page addressing in which the 
instruction contains only an 8-bit address on page 0. 

Absolute indexed addressing. A form of indexed addressing in which the instruc- 
tion contains a full 16-bit base address. 

Accumulator. A register that is the implied source of one operand and the destina- 
tion of the result for most arithmetic and logic operations. 

ACIA (Asynchronous Communications Interface Adapter). A serial interface 
device. Common ACIAs in 6502-based computers are the 6551 and 6850 
devices. See also UART. 

Active transition (in a PI A or VIA) . The edge on the control line that sets an Inter- 
rupt flag. The alternatives are a negative edge (1 to transition) or a positive 
edge (0 to 1 transition). 

Address. The identification code that distinguishes one memory location or input/ 
output port from another and that ..can be used to select a specific one. 

Addressing modes. The methods for specifying the addresses to be used in execut- 
ing an instruction. Common addressing modes are direct, immediate, indexed, 
indirect, and relative. 

519 



520 6502 ASSEMBLY LANGUAGE SUBROUTINES 

Address register. A register that contains a memory address. 

Address space. The total range of addresses to which a particular computer may 
refer. 

ALU. See Arithmetic-logic unit. 

Arithmetic-logic unit (ALU). A device that can perform any of a variety of 
arithmetic or logical functions; function inputs select which function is per- 
formed during a particular cycle. 

Arithmetic shift. A shift operation that preserves the value of the sign bit (most 
significant bit). In a right shift, this results in the sign bit being copied into the 
succeeding bit positions (called sign extension) . 

Arm. See Enable, but most often applied to interrupts. 

Array. A collection of related data items, usually stored in consecutive memory 
addresses. 

ASCII (American Standard Code for Information Interchange). A 7-bit character 
code widely used in computers and communications. 

Assembler. A computer program that converts assembly language programs into a 
form (machine language) that the computer can execute directly. The assem- 
bler translates mnemonic operation codes and names into their numerical 
equivalents and assigns locations in memory to data and instructions. 

Assembly language. A computer language in which the programmer can use 
mnemonic operation codes, labels, and names to refer to their numerical 
equivalents. 

Asynchronous. Operating without reference to an overall timing source, that is, at 
irregular intervals. 

Autodecrementing. The automatic decrementing of an address register as part of 
the execution of an instruction that uses it. 

Autoincrementing. The automatic incrementing of an address register as part of the 
execution of an instruction that uses it. 

Automatic mode (of a peripheral chip). An operating mode in which the peripheral 
chip produces control signals automatically without specific program interven- 
tion. 

B 

Base address. The address in memory at which an array or table starts. Also called 
starting address or base. 



GLOSSARY 521 



Baud. A measure of the rate at which serial data is transmitted, bits per second, 
but including both data bits and bits used for synchronization, error checking, 
and other purposes. Common baud rates are 110, 300, 1200, 2400, 4800, and 
9600. 

Baud rate generator. A device that generates the proper time intervals between 
bits for serial data transmission. 

BCD (Binary-Coded Decimal). A representation of decimal numbers in which 
each decimal digit is coded separately into a binary number. 

Bidirectional. Capable of transporting signals in either direction. 

Binary-coded decimal. See BCD. 

Binary search. A search in which the set of items to be searched is divided into two 
equal (or nearly equal) parts during each iteration. The part containing the 
item being sought is then determined and used as the set in the next iteration. 
A binary search thus halves the size of the set being searched with each itera- 
tion. This method obviously assumes the set of items is ordered. 

Bit test. An operation that determines whether a bit is or 1. Usually refers to a 
logical AND operation with an appropriate mask. 

Block. An entire group or section, such as a set of registers or a section of 
memory. 

Block comparison (or block compare). A search that extends through a block of 
memory until either the item being sought is found or the entire block is 
examined. 

Block move. Moving an entire set of data from one area of memory to another. 

Boolean variable. A variable that has only two possible values, which may be 
represented as true and false or as 1 and 0. See also Flag. 

Borrow. A bit which is set to 1 if a subtraction produces a negative result and to 
if it produces a positive or zero result. The borrow is used commonly to 
subtract numbers that are too long to be handled in a single operation. 

Bounce. To move back and forth between states before reaching a final state. 

Branch instruction. See Jump instruction. 

Break instruction. See Trap. 

Breakpoint. A condition specified by the user under which program execution is 
to end temporarily. Breakpoints are used as an aid in debugging. The specifica- 
tion of the conditions under which execution will end is referred to as setting 
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breakpoints and the deactivation of those conditions is referred to as clearing 
breakpoints. 

BSC (Binary Synchronous Communications or BISYNC). An older line protocol 
often used by IBM computers and terminals. 

Bubble sort. A sorting technique which goes through an array exchanging each 
pair of elements that are out of order. 

Buffer. Temporary storage area generally used to hold data before it is transferred 
to its final destination. 

Buffer empty. A signal that is active when any data entered into a buffer or register 
has been transferred to its final destination. 

Buffer full. A signal that is active when a buffer or register is completely occupied 
with data that has not been transferred to its final destination. 

Buffer index. The index of the next available address in a buffer. 

Buffer pointer. A storage location that contains the next available address in a 
buffer. 

Bug. An error or flaw. 

Byte. A unit of eight bits. May be described as consisting of a high nibble or digit 
(the four most significant bits) and a low nibble or digit (the four least signifi- 
cant bits). 

Byte-length. A length of eight bits per item. 



Call (a subroutine). Transfers control to the subroutine while retaining the infor- 
mation required to resume the current program. A call differs from a jump or 
branch in that a call retains information concerning its origin, whereas a jump 
or branch does not. 

Carry. A bit that is 1 if an addition overflows into the succeeding digit position. 

Carry flag. A flag that is 1 if the last operation generated a carry from the most sig- 
nificant bit and if it did not. 

CASE statement. A statement in a high-level computer language that directs the 
computer to perform one of several subprograms, depending on the value of a 
variable. That is, the computer performs the first subprogram if the variable 
has the first value specified, etc. The computed GO TO statement serves a 
similar function in FORTRAN. 
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Central processing unit (CPU). The control section of the computer which controls 
its operations, fetches and executes instructions, and performs arithmetic and 
logical functions. 

Checksum. A logical sum that is included in a block of data to guard against 
recording or transmission errors. Also referred to as longitudinal parity or 
longitudinal redundancy check (LRC) . 

Circular shift. See Rotate. 

Cleaning the stack. Removing unwanted items from the stack, usually by adjust- 
ing the stack pointer. 

Clear. Set to zero. 

Clock. A regular timing signal that governs transitions in a system. 

Close (a file). To make a file inactive. The final contents of the file are the last 
information the user stored in it. The user must generally close a file after 
working With it. 

Coding. Writing instructions in a computer language. 

Combo chip. See Multifunction device. 

Command register. See Control register. 

Comment. A section of a program that has no function other than documentation. 
Comments are neither translated nor executed, but are simply copied into the 
program listing. 

Complement. Invert; see also one's complement, two's complement. 

Concatenation. Linking together, chaining, or uniting in a series. In string opera- 
tions, placing of one string after another. 

Condition code. See Flag. 

Control (command) register. A register whose contents determine the.state of a 
transfer or the operating mode of a device. 

Control signal. A signal that directs an I/O transfer or changes the operating mode 
of a peripheral. 

Cyclic redundancy check (CRC). An error-detecting code generated from a 
polynomial that can be added to a block of data or a storage area. 
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D 

Data accepted. A signal that is active when the most recent data has been trans- 
ferred successfully. 

Data direction register. A register that determines whether bidirectional I/O lines 
are being used as inputs or outputs. Abbreviated as DDR in some diagrams. 

Data-link control. A set of conventions governing the format and timing of data 
exchange between communicating systems. Also called a protocol. 

Data ready. A signal that is active when new data is available to the receiver. Same 
as valid data. 

Data register. In a PIA or VIA, the actual input/output port. Also called an output 
register or a peripheral register. 

DDCMP (Digital Data Communications Message Protocol). A widely used pro- 
tocol that supports any method of physical data transfer (synchronous or 
asynchronous, serial or parallel). 

Debounce. Convert the output from a contact with bounce into a single, clean 
transition between states. Debouncing is most commonly applied to outputs 
from mechanical keys or switches which bounce back and forth before settling 
into their final positions. 

Debounce time. The amount of time required to debounce a change of state. 

Debugger. A program that helps in locating and correcting errors in a user pro- 
gram. Some versions are referred to as dynamic debugging tools or DDT after 
the famous insecticide. 

Debugging. The process of locating and correcting errors in a program. 

Device address. The address of a port associated with an input or output device. 

Diagnostic. A program that checks the operation of a device and reports its find- 
ings. 
Digit shift. A shift of one BCD digit position or four bit positions. 

Direct addressing. An addressing mode in which the instruction contains the 
address required for its execution. The 6502 microprocessor has two types of 
direct addressing: zero page addressing (requiring only an 8-bit address on 
page 0) and absolute addressing (requiring a full 16-bit address in two bytes of 
memory). 

Disarm. See Disable, but most often applied to interrupts. 



GLOSSARY 525 

Disable (or disarm). Prohibit an activity from proceeding or a signal (such as an 
interrupt) from being recognized. 

Double word. A unit of 32 bits. 

Driver. See I/O driver. 

Dump. A facility that displays the contents of an entire section of memory or 
group of registers on an output device. 

Dynamic allocation (of memory). The allocation of memory for a subprogram 
from whatever is available when the subprogram is called. This is as opposed to 
the static allocation of a fixed area of storage to each subprogram. Dynamic' 
allocation often reduces memory usage because subprograms can share areas; 
it does, however, generally require additional execution time and overhead 
spent in memory management. 



EBCDIC (Expanded Binary-Coded Decimal Interchange Code). An 8-bit 
character code often used in large computers. 

Echo. Reflects transmitted information back to the transmitter; sends back to a 
terminal the information received from it. 

Editor. A program that manipulates text material and allows the user to make cor- 
rections, additions, deletions, and other changes. 

Effective address. The actual address used by an instruction to fetch or store data. 
EIA RS-232. See RS-232. 

Enable (or arm). Allows an activity to proceed or a signal (such as an interrupt) to 
be recognized. 

Endless loop or jump-to-self instruction. An instruction that transfers control to 
itself, thus executing indefinitely (or until a hardware signal interrupts it). 

Error-correcting code. A code that the receiver can use to correct errors in 
messages; the code itself does not contain any additional message. 

Error-detecting code. A code that the receiver can use to detect errors in messages; 
the code itself does not contain any additional message. 

Even parity. A 1-bit error-detecting code that makes the total number of 1 bits in a 
unit of data (including the parity bit) even. 
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EXCLUSIVE OR function. A logical function that is true if either of its inputs is 
true ,but not both. It is thus true if its inputs are not equal (that is, if one of 
them is a logic 1 and the other is a logic 0). 

External reference. The use in a program of a name that is defined in another pro- 
gram. 

F 

F (flag) register. See Processor status register. 

File. A collection of related information that is treated as a unit for purposes of 
storage or retrieval. 

Fill. Placing values in storage areas not previously in use, initializing memory or 
storage. 

Flag (or condition code or status bit). A single bit that indicates a condition within 
the computer, often used to choose between alternative instruction sequences. 

Flag (software). An indicator that is either on (1) or off (0) and can be used to 
select between two alternative courses of action. Boolean variable and 
semaphore are other terms with the same meaning. 

Flag register. See Processor status register. 

Free-running mode. An operating mode for a timer in which it indicates the end of 
a time interval and then starts another of the same length. Also referred to as a 
continuous mode. 

Function key. A key that causes a system to perform a function (such as clearing 
the screen of a video terminal) or execute a procedure. 



Global. This is a universal variable. Defined in more than one section of a com- 
puter program, rather than used only locally. 



H 

Handshake. An asynchronous transfer in which sender and receiver exchange 
predetermined signals to establish synchronization and to indicate the status of 
the data transfer. Typically, the sender indicates that new data is available and 
the receiver reads the data and indicates that it is ready for more. 
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Hardware stack. A stack that the computer automatically manages when execut- 
ing instructions that use it. 

Head (of a queue). The location of the item most recently entered into the queue. 
Header, queue. See Queue header. 

Hexadecimal (or hex). Number system with base 16. The digits are the decimal 
numbers through 9, followed by the letters A through F. 

Hex cqde. See Object code. 

High-level language. A programming language that is aimed toward the solution of 
problems, rather than being designed for convenient conversion into com- 
puter instructions. A compiler or interpreter translates a program written in a 
high-level language into a form that the computer can execute. Common high- 
level languages include BASIC, COBOL, FORTRAN, and Pascal. 

I 

Immediate addressing. An addressing mode in which the data required by an 
instruction is part of the instruction. The data immediately follows the opera- 
tion code in memory. 

Independent mode (of a parallel interface). An operating mode in which the status 
and control signals associated with a parallel I/O port can be used indepen- 
dently of data transfers through the port. 

Index. A data item used to identify a particular element of an array or table. 

Indexed addressing. An addressing mode in which the address is modified by the 
contents of an index register to determine the effective address (the actual 
address used). 

Indexed indirect addressing. An addressing mode in which the effective address is 
determined by indexing from the base address and then using the indexed 
address indirectly. This is also known as preindexing, since the indexing is per- 
formed before the indirection. Of course, the array starting at the given base 
address must consist of addresses that can be used indirectly. 

Index register. A register that can be used to modify memory addresses. 

Indirect addressing. An addressing mode in which the effective address is the con- 
tents of the address included in the instruction, rather than the address itself. 

Indirect indexed addressing. An addressing mode in which the effective address is 
determined by first obtaining the base address indirectly and then indexing 
from that base address. Also known as postindexing, since the indexing is per- 
formed after the indirection. 
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Indirect jump. A jump instruction that transfers control to the address stored in a 
register or memory location, rather than to a fixed address. 

Input/output control block (IOCB). A group of storage locations that contain the 
information required to control the operation of an I/O device. Typically 
included in the information are the addresses of routines that perform opera- 
tions such as transferring a single unit of data or determining device status. 

Input/output control system (IOCS). A set of computer routines that control the 
performance of I/O operations. 

Instruction. A group of bits that defines a computer operation and is part of the 

instruction set. 
Instruction cycle. The process of fetching, decoding, and executing an instruction. 

Instruction execution time. The time required to fetch, decode, and execute an 

instruction. 
Instruction fetch. The process of addressing memory and reading an instruction 

into the CPU for decoding and execution. 
Instruction length. The amount of memory needed to store a complete instruction. 

Instruction set. The set of general-purpose instructions available on a given com- 
puter. The set of inputs to which the CPU will produce a known response when 
they are fetched, decoded, and executed. 

Interpolation. Estimating values of a function at points between those at which the 
values are already known. 

Interrupt. A signal that temporarily suspends the computer's normal sequence of 
operations and transfers control to a special routine. 

Interrupt-driven. Dependent on interrupts for its operation, may idle until it 
receives an interrupt. 

Interrupt flag. A bit in the input/output section that is set when an event occurs 
that requires servicing by the CPU. Typical events include an active transition 
on a control line and the exhaustion of a count by a timer. 

Interrupt mask (or interrupt enable) . A bit that determines whether interrupts will 
be recognized. A mask or disable bit must be cleared to allow interrupts, 
whereas an enable bit must be set. 

Interrupt request. A signal that is active when a peripheral is requesting service, 
often used to cause a CPU interrupt. See also Interrupt flag. 

Interrupt service routine. A program that performs the actions required to respond 
to an interrupt. 
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Inverted borrow. A bit which is set to if a subtraction produces a negative result 
and to 1 if it produces a positive or result. An inverted borrow can be used 
like a true borrow, except that the complement of its value (i.e., 1 minus its 
value) must be used in the extension to longer numbers. 

IOCB. See Input/output control block. 

IOCS. See Input/output control system. 

I/O device table. A table that establishes the correspondence between the logical 
devices to which programs refer and the physical devices that are actually used 
in data transfers. An I/O device table must be placed in memory in order to run 
a program that refers to logical devices on a computer with a particular set of 
actual (physical) devices. The I/O device table may, for example, contain the 
starting addresses of the I/O drivers that handle the various devices. 

I/O driver. A computer program that transfers data to or from an I/O device, also 
called a driver or I/O utility. The driver must perform initialization functions 
and handle status and control, as well as physically transfer the actual data. 



Jump instruction (or Branch instruction). An instruction that places a new value in 
the program counter, thus departing from the normal one-step incrementing. 
Jump instructions may be conditional; that is, the new value may be placed in 
the program counter only if a condition holds. 

Jump table. A table consisting of the starting addresses of executable routines, 
used to transfer control to one of them. 

L 

Label. A name attached to an instruction or statement in a program that identifies 
the location in memory of the machine language code or assignment produced 
from that instruction or statement. 

Latch. A device that retains its contents until new data is specifically entered into 
it. 

Leading edge (of a binary pulse). The edge that marks the beginning of a pulse. 

Least significant bit. The rightmost bit in a group of bits, that is, bit of a byte or a 
16-bit word. 

Library program. A program that is part of a collection of programs and is written 
and documented according to a standard format. 
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LIFO (last-in, first-out) memory. A memory that is organized according to the 
order in which elements are entered and from which elements can be retrieved 
only in the order opposite from that in which they were entered. See also Stack. 

Linearization. The mathematical approximation of a function by a straight line 
between two points at which its values are known. 

Linked list. A list in which each item contains a pointer (or link) to the next item. 
Also called a chain or chained list. 

List. An ordered set of items. 

Logical device. The input or output device to which a program refers. The actual 
or physical device is determined by looking up the logical device in an I/O 
device table - a table containing actual I/O addresses (or starting addresses 
for I/O drivers) corresponding to the logical device numbers. 

Logical shift. A shift operation that moves zeros in at the end as the original data is 
shifted. 

Longitudinal parity. See Checksum. 

Logical sum. A binary sum with no carries between bit positions. See also 
Checksum, EXCLUSIVE OR function. 

Longitudinal redundancy check (LRC). See Checksum. 

Lookup table. An array of data organized so that the answer to a problem may be 
determined merely by selecting the correct entry (without any calculations). 

Low-level language. A computer language in which each statement is translated 
directly into a single machine language instruction. 

M 

Machine language. The programming language that the computer can execute 
directly with no translation other than numeric conversions. 

Maintenance (of programs) . Updating and correcting computer programs that are 

in use. 
Majority logic. A combinational logic function that is true when more than half the 

inputs are true. 

Manual mode (of a peripheral chip). An operating mode in which the chip pro- 
duces control signals only when specifically directed to do so by a program. 

Mark. The 1 state on a serial data communications line. 

Mask. A bit pattern that isolates one or more bits from a group of bits. 
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Maskable interrupt. An interrupt that the system, can disable. 

Memory capacity. The total number of different memory addresses (usually 
specified in terms of bytes) that can be attached to a particular computer. 

Microcomputer. A computer that has a microprocessor as its central processing 
unit. 

Microprocessor. A complete central processing unit for a computer constructed 
from one or a few integrated circuits. 

Mnemonic. A memory jogger, a name that suggests the actual meaning or purpose 
of the object to which it refers. 

Modem (Modulator/demodulator). A device that adds or removes a carrier fre- 
quency, thereby allowing data to be transmitted on a high-frequency channel 
or received from such a channel. 

Modular programming. A programming method whereby the overall program is 
divided into logically separate sections or modules. 

Module. A part or section of a program. 

Monitor. A program that allows the computer user to enter programs and data, 
run programs, examine the contents of the computer's memory and registers, 
and utilize the computer's peripherals. See also Operating system. 

Most significant bit. The leftmost bit in a group of bits, that is, bit 7 of a byte or bit 
15 of a 16-bit word. 

Multifunction device. A device that performs more than one function in a com- 
puter system; the term commonly refers to devices containing memory, input/ 
output ports, timers, etc., such as the 6530, 6531, and 6532 devices. 

Multitasking. Used to execute many tasks during a single period of time, usually 
by working on each one for a specified part of the period and suspending tasks 
that must wait for input, output, the completion of other tasks, or external 
events. 

Murphy's Law. The famous maxim that "whatever can go wrong, will." 

N 

Negate. Finds the two's complement (negative) of a number. 
Negative edge (of a binary pulse). A l-to-0 transition. 
Negative flag. See Sign flag. 
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Negative logic. Circuitry in which a logic zero is the active or ON state. 

Nesting. Constructing programs in a hierarchical manner with one level contained 
within another, and so forth. The nesting level is the number of transfers of 
control required to reach a particular part of a program without ever returning 
to a higher level. 

Nibble (or nybble). A unit of four bits. A byte (eight bits) may be described as 
consisting of a high nibble (four most significant bits) and a low nibble (four 
least significant bits). 

Nine's complement. The result of subtracting a decimal number from a number 
having nines in each digit position. 

Nonmaskable interrupt. An interrupt that cannot be disabled within the CPU. 

Nonvolatile memory. A memory that retains its contents when power is removed. 

No-op (or no operation). An instruction that does nothing other than increment 
the program counter. 

Normalization (of numbers). Adjusting a number into a regular or standard for- 
mat. A typical example is the scaling of a binary fraction so that its most signifi- 
cant bit is 1. 



Object code (or object program). The program that is the output of a translator 
program, such as an assembler. Usually it is a machine language program ready 
for execution. 

Odd parity. A 1-bit error-detecting code that makes the total number of 1 bits in a 
unit of data (including the parity bit) odd. 

Offset. Distance from a starting point or base address. 

One's complement. A bit-by-bit logical complement of a number, obtained by re- 
placing each bit with a 1 and each 1 bit with a 0. 

One-shot. A device that produces a pulse output of known duration in response to 
a pulse input. A timer operates in a one-shot mode when it indicates the end of a 
single interval of known duration. 

Open (a file). Make a file ready for use. The user generally must open a file before 
working with it. 

Operating system (OS). A computer program that controls the overall operations 
of a computer and performs such functions as assigning places in memory to 



GLOSSARY 533 



programs and data, scheduling the execution of programs, processing inter- 
rupts, and controlling the overall input/output system. Also known as a moni- 
tor, executive, or master-control program, although the term monitor is 
usually reserved for a simple operating system with limited functions. 

Operation code (op code). The part of an instruction that specifies the operation to 
be performed. 

OS. See Operating system. 

Output register. In a PIA or VIA, the actual input/output port. Also called a data 
register or a peripheral register. 

Overflow (of a stack). Exceeding the amount of memory allocated to a stack. 

Overflow, two's complement. See Two's complement overflow. 



P register. See Processor status register, Program counter. Most 6502 reference 
material abbreviates program counter as PC and processor status register as P, 
but some refer to the program counter as P and the processor status (flag) 
register as F. 

Packed decimal. A binary-coded decimal format in which each 8-bit byte contains 
two decimal digits. 

Page. A subdivision of the memory. In 6502 terminology, a page is a 256-byte 
section of memory in which all addresses have the same eight most significant 
bits (or page number). For example, page C6 consists of memory addresses 
C600 through C6FF. 

Paged address. The identifier that characterizes a particular memory address on a 
known page. In 6502 terminology, this is the eight least significant bits of a 
memory address. 

Page number. The identifier that characterizes a particular page of memory. In 
6502 terminology, this is the eight most significant bits of a memory address. 

Page 0. In 6502 terminology, the lowest 256 addresses in memory (addresses 
0000 through 00FF). 

Parallel interface. An interface between a CPU and input or output devices that 
handle data in parallel (more than one bit at a time). 

Parameter. An item that must be provided to a subroutine or program in order for 
it to be executed. 
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Parity. A 1-bit error-detecting code that makes the total number of 1 bits in a unit 
of data, including the parity bit, odd (odd parity) or even (even parity). Also 
called vertical parity or vertical redundancy check (VRC) . 

Passing parameters. Making the required parameters available to a subroutine. 

Peripheral Interface. One of the 6500 family versions of a parallel interface; exam- 
ples are the 6520, 6522, 6530, and 6532 devices. 

Peripheral ready. A signal that is active when a peripheral can accept more data. 

Peripheral register. In a PIA or VIA, the actual input or output port. Also called a 
data register or an output register. 

Physical device. An actual input or output device, as opposed to, a logical device. 

PIA. (Peripheral Interface Adapter). The common name for the 6520 or 6820 
device which consists of two bidirectional 8-bit I/O ports, two status lines, and 
two bidirectional status or control lines. The 6821 is a similar device. 

Pointer. A storage place that contains the address of a data item rather than the 
item itself. A pointer tells where the item is located. 

Polling. Determining which I/O devices are ready by examining the status of one 
device at a time. 

Polling interrupt system. An interrupt system in which a program determines the 
source of a particular interrupt by examining the status of potential sources 
one at a time. 

Pop. Removes an operand from a stack. 

Port. The basic addressable unit of the computer's input/output section. 

Positive edge (of a binary pulse). A 0-to-l transition. 

Postdecrementing. Decrementing an address register after using it. 

Postincrementing. Incrementing an address register after using it. 

Postindexing. See Indirect indexed addressing. 

Power fail interrupt. An interrupt that informs the CPU of an impending loss of 

power. 
Predecrementing. Decrements an address register before using it. 
Preincrementing. Increments an address register before using it. 
Preindexing. See Indexed indirect addressing. 
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Priority interrupt system. An interrupt system in which some interrupts have prece- 
dence over others, that is, they will be serviced first or can interrupt the 
others' service routines. 

Processor status (P or F) register. A register that defines the current state of a com- 
puter,, often containing various bits indicating internal conditions. Other 
names for this register include condition code register, flag (F) register, status 
register, and status word. 

Program counter (PC or P register). A register that contains the address of the 
next instruction to be fetched from memory. 

Programmable I/O device. An I/O device that can have its mode of operation 
determined by loading registers under program control. 

Programmable peripheral chip. A chip that can operate in a variety of modes; its 
current operating mode is determined by loading control registers under pro- 
gram control. 

Programmable timer. A device that can handle a variety of timing tasks, including 
the generation of delays, under program control. 

Program relative addressing. A form of relative addressing in which the base 
address is the program counter. Use of this form of addressing makes it easy to 
move programs from one place in memory to another. 

Programmed input/output. Input or output performed under program control with- 
out using interrupts or other special hardware techniques. 

Protocol. See Data-link control. 

Pseudo-operation (or pseudo-op or pseudo-instruction). An assembly language 
operation code that directs the assembler to perform some action but does not 
result in the generation of a machine language instruction. 

Pull. Removes an operand from a stack, same as pop. 

Push. Stores an operand in a stack. 



Queue. A set of tasks, storage addresses, or other items that are used in a first-in, 
first-out manner; that is, the first item entered in the queue is the first to be 
removed. 

Queue header. A set of storage locations describing the current location and status 
of a queue. 



536 6502 ASSEMBLY LANGUAGE SUBROUTINES 

R 

RAM. See Random-access memory. 

Random-access memory (RAM). A memory that can be both read and altered 
(written) in normal operation. 

Read-only memory (ROM). A memory that can be read but not altered in normal 
operation. 

Ready for data. A signal that is active when the receiver can accept more data. 

Real-time. In synchronization with the actual occurrence of events. 

Real-time clock. A device that interrupts a CPU at regular time intervals. 

Real-time operating system. An operating system that can act as a supervisor for 
programs that have real-time requirements. May also be referred to as a real- 
time executive or real-time monitor. 

Reentrant. A program or routine that can be executed concurrently while the 
same routine is being interrupted or otherwise held in abeyance. 

Register. A storage location inside the CPU. 

Relative addressing. An addressing mode in which the address specified in the 
instruction is the offset from a base address. 

Relative offset. The difference between the actual address to be used in an instruc- 
tion and the current value of the program counter. 

Relocatable. Can be placed anywhere in memory without changes; that is, a pro- 
gram that can occupy any set of consecutive memory addresses. 

Return (from a subroutine). Transfers control back to the program that originally 
called the subroutine and resumes its execution. 

RIOT. (ROM/I/O/timer or RAM/I/O/timer) . A device containing memory 
(ROM or RAM), I/O ports, and timers. 

ROM. See Read-only memory. 

Rotate. A shift operation that treats the data as if it were arranged in a circle, that 
is, as if the most significant and least significant bits were connected either 
directly or through a Carry bit. 

Row major order. Storing elements of a multidimensional array in a linear 
memory by changing the indexes starting with the rightmost first. That is, if 
the elements are A(I,J,K) and begin with A(0,0,0), the order is A(0,0,0), 
A(0,0,1), ...,A(0,1,0), A(0,1,1),... The opposite technique (change leftmost 
index first) is called column major order. 
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RRIOT. ROM/RAM/I/O/timer, a device containing read-only memory, read/ 
write memory, I/O ports, and timers. 

RS-232 (or EIA RS-232). A standard interface for the transmission of serial 
digital data, sponsored by the Electronic Industries Association of Washing- 
ton, D.C. It has been partially superseded by RS-449. 



Scheduler. A program that determines when other programs should be started and 
terminated. 

Scratchpad. An area of memory that is especially easy and quick to use for storing 
variable data or intermediate results. Page is generally used as a scratchpad in 
6502-based computers. 

SDLC (Synchronous Data Link Control). The successor protocol to BSC for IBM 
computers and terminals. 

Semaphore. See Flag. 

Serial. One bit at a time. 

Serial interface. An interface between a CPU and input or output devices that han- 
dle data serially. Serial interfaces commonly used in 6502-based computers are 
the 6551 and 6850 devices. See also UART. 

Shift instruction. An instruction that moves all the bits of the data by a certain 
number of bit positions, just as in a shift register. 

Signed number. A number in which one or more bits represent whether the num- 
ber is positive or negative. A common format is for the most significant bit to 
represent the sign (0 = positive, 1 = negative). 

Sign extension. The process of copying the sign (most significant) bit to the right 
as in an arithmetic shift. Sign extension preserves the sign when two's comple- 
ment numbers are being divided or normalized. 

Sign flag. A flag that contains the most significant bit of the result of the previous 
operation. It is sometimes called a negative flag, since a value of 1 indicates a 
negative signed number. 

Sign function. A function that is if its parameter is positive and 1 if its parameter 
is negative. . 

Software delay. A program that has no function other than to waste time. 

Software interrupt. See Trap. 
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Software stack. A stack that is managed by means of specific instructions, as 
opposed to a hardware stack which the computer manages automatically. 

Source code (or source program). A computer program written in assembly 
language or in a high-level language. 

Space. The zero state on a serial data communications line. 

Stack. A section of memory that can be accessed only in a last-in, first-out man- 
ner. That is, data can be added to or removed from the stack only through its 
top; new data is placed above the old data and the removal of a data item makes 
the item below it the new top. 

Stack pointer. A register that contains the address of the top of a stack.The 6502's 
stack pointer contains the address on page 1 of the next available (empty) 
stack location. 

Standard (or 8,4,2,1) BCD. A BCD representation in which the bit positions have 
the same weights as in ordinary binary numbers. 

Standard teletypewriter. A teletypewriter that operates asynchronously at a rate of 
ten characters per second. 

Start bit. A 1-bit signal that indicates the start of data transmission by an 
asynchronous device. 

Static allocation (of memory). Assignment of fixed storage areas for data and pro- 
grams, as opposed to dynamic allocation in which storage areas are assigned at 
the time when they are needed. 

Status register. A register whose contents indicate the current state or operating 
mode of a device. See also Processor status register. 

Status signal. A signal that describes the current state of a transfer or the operating 
mode of a device. 

Stop bit. A 1-bit signal that indicates the end of data transmission by an 
asynchronous device. 

String. An array (set of data) consisting of characters. 

String functions. Procedures that a|low the programmer to operate on data consist- 
ing of characters rather than numbers. Typical functions are insertion, dele- 
tion, concatenation, search, and replacement. 

Strobe. A signal that identifies or describes another set of signals and that can be 
used to control a buffer, latch, or register. 
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Subroutine. A subprogram that can be executed (called) from more than one 
place in a main program. 

Subroutine call. The process whereby a computer transfers control from its current 
program to a subroutine while retaining the information required to resume 
the current program. 

Subroutine linkage. The mechanism whereby a computer retains the information 
required to resume its current program after it completes the execution of a 
subroutine. 

Suspend (a task). Halts execution and preserves the status of the task until some 
future time. 

Synchronization (or sync) character. A character that is used only to synchronize 
the transmitter and the receiver. 

Synchronous. Operating according to an overall timing source or clock, that is, at 
regular intervals. 

Systems software. Programs that perform administrative functions or aid in the 
development of other programs but do not actually perform any of the com- 
puter's ultimate workload. 



Tail (of a queue). The location of the oldest item in the queue, that is, the earliest 
entry. 

Task. A self-contained program that can serve as part of an overall system under 
the control of a supervisor. 

Task status. The set of parameters that specify the current state of a task. A task 
can be suspended and resumed as long as its status is saved and restored. 

Teletypewriter. A device containing a keyboard and a serial printer that is often 
used in communications and with computers. Also referred to as a Teletype (a 
registered trademark of Teletype Corporation of Skokie, Illinois) or TTY. 

Ten's complement. The result of subtracting a decimal number from zero (ignoring 
the negative sign), the nine's complement plus one. 

Terminator. A data item that has no function other than to signify the end of an 
array. 

Threaded code. A program consisting of subroutines, each of which automatically 
transfers control to the next one upon its completion. 
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Timeout. A period during which no activity is allowed to proceed, an inactive 
period. 

Top of the stack. The address containing the item most recently entered into the 
stack. 

Trace. A debugging aid that provides information about a program while the pro- 
gram is being executed. The trace usually prints all or some of the intermediate 
results. 

Trailing edge (of a binary pulse). The edge that masks the end of a pulse. 

Translate instruction. An instruction that converts its operand into the corres- 
ponding entry in a table. 

Transparent routine. A routine that operates without interfering with the opera- 
tions of other routines. 

Trap (or software interrupt). An instruction that forces a jump to a specific (CPU- 
dependent) address, often used to produce breakpoints or to indicate hardware 
or software errors. 

True borrow. See Borrow. 

Two's complement. A binary number that, when added to the original number in a 
binary adder, produces a zero result. The two's complement of a number may 
be obtained by subtracting the number from zero or by adding 1 to the one's 
complement. 

Two's complement overflow. A situation in which a signed arithmetic operation 
produces a result that cannot be represented correctly — that is, the magnitude 
overflows into the sign bit. 

U 

UART (Universal Asynchronous Receiver/Transmitter). An LSI device that acts 
as an interface between systems that handle data in parallel and devices that 
handle data in asynchronous serial form. 

Underflow (of a stack). Attempting to remove more data from a stack than has 
been entered into it. 

Unsigned number. A number in which all the bits are used to represent magnitude. 

Utility. A general-purpose program, usually supplied by the computer manufac- 
turer or part of an operating system, that executes a standard or common 
operation such as sorting, converting data from one format to another, or 
copying a file. 
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Valid data. A signal that is active when new data is available to the receiver. 

Vectored interrupt. An interrupt that produces an identification code (or vector) 
that the CPU can use to transfer control to the appropriate service routine. The 
process whereby control is transferred to the service routine is called vectoring. 

Versatile Interface Adapter (VIA). The name commonly given to the 6522 parallel 
interface device; it consists of two 8-bit bidirectional I/O ports, four status and 
control lines, two 16-bit timers, and a shift register. 

VIA. See Versatile Interface Adapter. 

Volatile memory. A memory that loses its contents when power is removed. 



W 

Walking bit test. A procedure whereby a single 1 bit is moved through each bit 
position in an area of memory and a check is made as to whether it can be read 
back correctly. 

Word. The basic grouping of bits that a computer can process at one time. In deal- 
ing with microprocessors, the term often refers to a 16-bit unit of data. 

Word boundary. A boundary between 16-bit storage units containing two bytes of 
information. If information is being stored in word-length units, only pairs of 
bytes conforming to (aligned with) word boundaries contain valid information. 
Misaligned pairs of bytes contain one byte from one word and one byte from 
another. 

Word-length. A length of 16 bits per item. 

Wraparound. Organization in a circular manner as if the ends were connected. A 
storage area exhibits wraparound if operations on it act as if the boundary loca- 
tions were contiguous. 

Write-only register. A register that the CPU can change but cannot read. If a pro- 
gram must determine the contents of such a register, it must save a copy of the 
data placed there. 



Zero flag. A flag that is 1 if the last operation produced a result of zero and if it 
did not. 
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Zero page. In 6502 terminology, the lowest 256 memory addresses (addresses 
0000 through 00FF). 

Zero page addressing. In 6502 terminology, a form of direct addressing in which 
the instruction contains only an 8-bit address on page 0. That is, zero is implied 
as the more significant byte of the direct address and need not be included 
specifically in the instruction. 

Zero-page indexed addressing. A form of indexed addressing in which the instruc- 
tion contains a base address on page 0. That is, zero is implied as the more sig- 
nificant byte of the base address and need not be included explicitly in the 
instruction. 

Zoned decimal. A binary-coded decimal format in which each 8-bit byte contains 
only one decimal digit. 
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A register. See Accumulator 
Abbreviations, recognition or, 346, 355, 356 
Absolute (direct) addressing, 10-11, 14, 141 

instructions, 8 

order of address bytes, 5 
Absolute indexed addressing, 11-12, 13, 14 

instructions, 9 

limitation (to 256-byte arrays), 146 

order of address bytes, 5 
Absolute value (16-bit), 86-87, 175-76, 243-44 
Accepting an interrupt, 65-68, 508 
Accumulator (register A), 6, 7, 10 

decimal operations, 74-82 

decision sequences, 26 

decrement by 1,3, 81 

exchange with top or stack, 100 

functions, 6 

increment by 1, 3, 79—80 

instructions, 7 

testing, 94-95 
Active transition in a 6522 VIA, 56, 59 
ADC, 2, 15, 16, 17, 135, 136 

Carry flag, exclusion of, 2, 15, 16, 136 

decimal mode, 3, 144—45 

flags, 3, 135 

increment by 1,3 

result, 135 
Addition 

BCD, 3, 74-76, 79, 80-81, 280-84 

binary, 2, 15-17, 38-39, 74-76, 253-56 

decimal, 3, 74-76, 79, 80-81, 280-84 

8-bit, 2, 15-17, 74-76, 79 

multiple-precision, 38-39, 253-56, 280-84 

16-bit, 75,76,80, 230-32 
Addition instructions, 74 — 76 

with Carry, 75-76 

without Carry, 74— 75 
Address arrays, 32, 35 -37,415-17 
Address format in memory (upside-down), 5, 141 
Addressing modes 

absolute (direct), 10-11, 14, 141 

absolute indexed, 11-12, 13, 14, 146 

autoindexing, 127—29 

default (absolute direct), ix, 8, 150 

direct, 7,8, 10-11,14, 141 

immediate, 11, 13, 141 

indexed, 8, 11-12, 13, 14, 125-27 

indexed indirect (preindexed), 2, 9, 12,32,51-52, 130, 141 

indirect, 2,35-36, 123-25 

indirect indexed (postindexed), 2, 4, 9, 12, 31-34, 41 -43 

postindexed, 2, 4, 9, 12, 31 -34, 41—43 

preindexed, 2, 9, 12,32,51-52, 130, 141 

6502 terminology, 1 1 

summary, 507 

zero page (direct), 7, 10- 11,14 

zero page indexed, 8,11-12 
Adjusl instructions, 122 



AND, 88-89 

clearing bits, 17-18 

input instruction, 49 

masking, 52-53, 339-40, 345-46 

testing bits, 21-22 
Apostrophe indicating ASCII character, viii 
Arithmetic, 230-305 

BCD, 3, 280-305 

binary, 2, 15-17, 38-39, 230-79 

decimal, 3, 280-305 

8-bit, 2,15-17 

multiple-precision, 38-39, 253-305 

16-bit, 230-52 
Arithmetic instructions, 74—88 
Arithmetic shift, 20, 83 - 84, 92, 325 - 28 
Arrays, 29-34, 127-29, 193-229,382-417 

addresses, 32, 35-37, 415-17 

initialization, 193-96 

long (exceeding 256 bytes) , 32 - 34, 385 

manipulation, 29— 34 

variable base addresses, 31-34 
ASCII, 517 

assembler notation, viii - ix 

conversions, 168—92 

table, 517 
ASCII to EBCDIC conversion, 187-89 
ASL,22,33,49 
Assembler 

defaults, 142-43, 150 

error recognition, 149—51 

format, viii- ix, 507 

pseudo-operations, 507 
Asynchronous Communications Interface Adapter (ACIA), 53, 

458-59,464-71,480-89 
Autoindexing, 127-29 
Autopostdecrementing, 129 
Autopostincrementing, 128 
Autopredecrementing, 128 — 29 
Autopreincrementing, 127 — 28 

B 

B (indicating binary number), viii 
B (Break) flag, vii 

Base address of an array or table, 11, 12,29,30 
Baud rates, common, 521 
BCC, 23-24, 26, 27 

BCD (decimal) arithmetic, 3, 74-81, 144-45, 280-305 
BCD to binary conversion, 166—67 
BCS, 23-25, 26, 27 
BEQ, 22, 23, 138 
Bidirectional ports, 153, 457-58 
Binary-coded-decimal (BCD), 3, 143 
Binary search, 397-402 
Binary to BCD conversion, 163—65 
Bit field extraction, 315-19 
Bit field insertion, 320-24 
BIT, 22, 137, 140 
addressing modes. 4, 16, 125 
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BIT (continued) 

flags, 4, 137 

input instruction, 49, 152 
Bit manipulation, 17-20,88-92,306-24 
Block compare, 86, 345 — 48 
Block move, 99, 197-203 
.BLOCK pseudo-operation, viii 
BMI,4,25, 139 
BNE,4,21,23,2"8,29 
Boolean algebra, 17 
Borrow, 2, 23-24 
BPL,22,25, 140 
Branch instructions, 26 — 27, 102 — 17 

conditional branches, 103 — 17 

decision sequences, 26—27 

indexed branches, 102—03 

signed branches, 110—12 

unconditional branches, 102 — 03, 149 

unsigned branches, 112 — 17 
Break (B) flag, vii 
BRK, 508 
BSC protocol, 434 
Bubble sort, 403-06 
Buffered interrupts, 480-89 
BVC, 4, 122 
BVS,22,25, 139, 140 
.BYTE pseudo-operation, viii, 188, 191-92 



Calendar, 490-503 

Call instructions, 1 1 7 - 1 8. See also JSR 

Carry (C) flag 

adding to accumulator, 74, 75 

arithmetic applications, 2, 38—39 

branches, 26-27 

CLC,2,38-39 

comparison instructions, 2, 22—23, 135 

complementing, 92 

decimal arithmetic, 3 

decrement instructions (no effect), 137 

increment instructions (no effect), 137 

instructions affecting, 138 

inverted borrow, 2, 135 

meaning, 2 

multiple-precision arithmetic, 38 — 39 

position in status register, vii, 509 

SBC, 2 

SEC, 2, 76 

shifts, 18 

subtracting from accumulator, 76, 77 

subtraction, 2 
Case statements, 36 

Character manipulation, 37. See also String manipulation 
Checksum, 91. See also Parity 
Circular shift (rotation), 18-19,94,337-44 
CLC,2,38-39 

CLD, 3, 68, 74. See also Decimal Mode flag 
Clear instructions, 5, 100—01 
Clearing ah array, 32-33, 196 
Clearing bits, 17, 18, 101, 329-32 
Clearing flags, 89 

Clearing peripheral status, 58, 60, 153, 154,465,481 
CLI,5, 123 
CLV, 122 
CMP, 135 

Carryflag,2,22-23, 135 

input instruction, 49 

Overflow flag (no effect), 25, 138 

SBC, differences from, 16 

use of, 22- 24 

Zero flag, 22 -23 



Code conversion, 37-38, 163-92 

Colon (optional delimiter after label), viii 

Combo chips, 53 

Command register, 153. See also Control register 

Comment, viii 

Common programming errors, 133 — 55 

interrupt service routines, 153 — 55 

I/O drivers, 151-53 
Communications between main program and interrupt service 

routines, 154-55,464-65,472-73,480-82 
Compacting a string, 396-97 
Comparison instructions, 84—86 

bit-by-bit (logical Exclusive OR), 91 

Carryflag,2,22-23, 135 

decimal, 3, 305 

multiple-precision, 275 — 79 

operation, 16 

16-bit, 249-52 

string, 345-48 

Zero flag, 22-23 
Complementing (inverting) bits, 17, 18, 91 
Complementing Carry flag, 92 
Complementing the accumulator (EOR #$FF), 16, 91 
Complement (logical NOT) instructions, 91 — 92 
Concatenation of strings, 177 — 78, 349—54 
Condition code. See Flags; Status register 
Conditional branch instructions, 26—27, 103— 17 

execution time (variable), 505, 506 

page boundary, 505, 506 
Conditional call instructions, 118 
Conditional return instructions, 119 
Control lines on 6522 VIA, 57-61 
Control register, 53, 153 

6522 VIA, 55-61 
Control signal, 52 — 53 
Copying a substring, 361—67 
CPX,27,70, 135 
CPY,27,70, 135 
CRC (cyclic redundancy check), 434 — 39 



D (Decimal Mode) flag, vii, 3, 68, 509 
Data direction register (DDR), 54, 57 

6520 PIA, 457-58 

6522 VIA, 54, 47, 458, 513 
Data transfer instructions, 95 — 101 
.DBYTE pseudo-operation, viii 
Debugging, 133 — 55 

interrupt service routines, 153 — 55 

I/O drivers, 151-53 
Decimal (BCD) arithmetic 

addition, 280-84 

binary conversions, 163 — 67 

comparison, 305 

decrement by 1,81, 82, 122, 145 

division, 297-304 

8-bit, 74-81 

flags, 3 

increment by 1 , 80, 1 22, 145 

multibyte, 280-305 

multiplication, 290-96 

subtraction, 285-89 

validity check, 122 
Decimal Mode (D) flag 

CLD, 3, 68, 74 

default value in most computers, 3, 145 

initialization, 3, 145 

interrupt service routines, 68, 145, 154 

meaning, 3 

position in status register, vii, 509 
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Decimal Mode (D) flag (continued) 

reset (no effect), 3 

saving and restoring, 3, 74-75 

SED.68, 144 

testing, 105, 107 

use, 3 
DEC 

Carry flag (no effect) , 137 

clearing bit 0, 18 

complementing bit 0, 18, 91 

decimal mode, 3 

decision sequences, 23, 27, 95 

output instruction, 49 
Decision sequences, 26 — 27 
Decrement instructions, 81—82 

accumulator, 3, 81 

16-bit number, 29, 81-82, 137 
Defaults in assembler, 142-43, 150 
Delay program, 460 — 63 
Deletion of a substring, 368 - 73 
Device numbers, 51-52, 440 
Digit (4-bit) shift, 93, 303 
Direct addressing 

absolute version, 10-11, 14, 141 

immediate addressing, difference from, 141 

6502 terminology, 1 1 

use of, 10-11 

zero page version, 7, 10— 1 1, 14 
Direction of stack growth, 5, 12-13, 508 
Disassembly of numerical operation codes, 506 
Division, 83-84 

by 2, 83-84 

by 4, 40, 83 

by 10, 164 

by 100, 164 

decimal, 297-304 

multiple-precision binary, 267-74 

simple cases, 40, 83 — 84 

16-bit, 240-48 
Documentation of programs, 22, 36 
Dollar sign in front of hexadecimal numbers, viii, 142 
Doubling an element number, 33, 34-36 
Dynamic allocation of memory, 46 - 47, 67 - 68 



EBCDIC to ASCII conversion, 190-92 

8080/8085 microprocessors, differences from 6502, 3, 5, 135 

Enabling and disabling interrupts 

accepting an interrupt, 65 — 68 

CLI, 5, 123 

interrupt status, saving and restoring, 67, 123 

interrupt status, testing, 105, 107 

RT1, 66, 508 

SEI,5,67, 123 

6522 VIA, 63-65 

stack, 66-67 

when required, 67 
.END pseudo-operation, viii 
Endless loop instruction, 121-22 
EOR, 90-91 

comparison (bit-by-bit), 90 

complementing accumulator (EOR *$FF), 16,91 

inverting bits, 91 

logical sum, 91 
,EQU pseudo-operation, viii 
Equal values, comparison of, 24, 136 
Error-correcting codes. See CRC 
Error-detecting codes. See Parity 
Error handling, 158-59 
Errors in programs, 133 — 55 



Even parity, 428-33 
Exchange instructions, 100 
Exchanging elements, 31, 100, 405 
Exchanging pointers, 272, 302 
Exclusive OR function, 16. See also EOR 
Execution time, reducing, 68 — 69 
Execution times for instructions, 505—06 
Extend instructions, 87 — 88 



F (flag) register, 533. See also Flags; Status register 

FIFO buffer (queue), 42-43, 481-82 

Fill memory, 99, 193-96 

Flag registers. See Status register 

Flags 

decimal mode, 3 

instructions, effects of, 505 — 06 

loading, 97 

organization in status register, vii, 509 

storing, 98 

use of, 26-27 
Format errors, 142-45 
Format of storing 16-bit addresses, 5 

H 

H (indicating hexadecimal number), viii, 142 

Handshake, 57-62 

Head of a queue, 42-43, 481-82 

Hexadecimal ASCII to binary conversion, 171-73 

Hexadecimal to ASCII conversion, 168-70 

I 

I flag. See Interrupt Disable flag 
Immediate addressing 

assembler notation, ix 

direct addressing, difference from. 141 

store instructions (lack of), 13 

use of, 1 1 
Implementation error (indirect jump on page boundary), 151 
Implicit effects of instructions, 147—48 
INC 

Carry flag (no effect), 137 

complementing bit 0, 18, 91 

decimal version, 80 

output instruction, 49 

setting bit 0, 18 

16-bit increment, 80, 81 
Increment instructions, 79-81 

accumulator, 3, 79, 80 

16-bit number, 4, 29, 80, 81, 137 
Independent mode of 6522 VIA control lines, 58-59, 62, 63 
Indexed addressing 

absolute version, 11-12, 13, 14 

errors in use, 134 

indexed indirect (preindexed) version, 12,32,51-52, 130 

indirect indexed (postindexed) version, 12, 32-33, 130 

offset of 1 in base address, 30 

16-bit index, 33-34, 35 

subroutine calls, 35-37, 415-17 

table lookup, 34 

use of, 29-30,35-36 

zero page version, 8, 1 1 - 12 
Indexed jump, 35-37, 102-03, 415-17 
Indexing of arrays, 29-37, 39-40, 204-29 

byte arrays, 204-06, 210-14 

multidimensional arrays, 221 — 29 

one-dimensional byte array, 204—06 

one-dimensional word array, 207-09 
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Indexing of arrays (continued) 
two-dimensional byte array, 39 — 40, 210— 14 
two-dimensional word array, 2 1 5 — 20 
word arrays, 207 - 209, 21 5 - 20 
Index registers 
CPX,CPY, 27, 70, 135 
decision sequences, 27 
differences between X and Y, 6, 10 
exchanging, 100 
instructions, 7 
LDX, LDY, 10, 11 
length, 4 

loading from stack, 12-13 
saving in stack, 13 
special features, 6 
STX,STY, 13 
table lookup, 34-37 
testing, 95 
transfers, 98 
use of, 6, 10 
Indirect addressing, 41, 96, 102, 123-25 
absolute version (JMPonly),2, 141 
indexed indirect version (preindexing), 12, 32,51 — 52, 130 
indirect indexed version (postindexing), 12, 32 — 33, 130 
JMP, 2, 141 

simulating with zero in an index register, 2, 96, 123 — 25 
subroutine calls, 35-36, 102, 117-18 
Indexed indirect addressing (preindexing), 12, 32, 51—52, 
130,141 
errors, 52, 141 
even indexes only, 12 
extending, 130 
instructions, 9 
restrictions, 12 
use, 32, 51, 124 
word alignment, 141,542 
wraparound on page 0, 52, 130 
Indirect call, 117-18 

Indirect indexed addressing (postindexing) ,2,4,12,31— 34, 
41-43,141 
extending, 130 

instructions, 9 

long arrays, 32 — 33 

restrictions, 12 

variable base addresses, 34 — 35, 41—43 
Indirect jump, 35-36, 102, 117-18,445-46 

error on page boundary, 151 
Initialization 

arrays, 193-96 

Decimal Mode flag, 3, 148, 154 

indirect addresses, 15, 97 

interrupt system, 464, 468 - 69 472 - 73, 476 - 77 

I/O devices, 454-59 

pointer on page 0, 15, 97 

RAM V 14- 15, 193-96 

6522 VIA, 54-63, 458, 477 

6850 ACIA, 458-59, 468-69, 486-87 

stack pointer, 96 

status register, 97 
Initialization errors, 148 
Input/Output(I/0) 

control block (IOCB), 440-53 

device-independent, 440—59 

device table, 51-52, 440-53 

differences between input and output, 152,465,473,481 

errors, 151 — 53 

initialization, 454—59 

instructions, 49—51 

interrupt-driven, 464-89 

logical devices, 51 

output, generalized, 425 - 27 



Input/Output (I/O) (continued) 
peripheral chips, 53—65 
physical devices, 51 
read-only ports, 49— 51 
6522 VIA, 54-65, 472-79 
6850 ACIA, 458-59, 464-71, 480-89 
status and control, 52 — 53 
terminal handler, 418 — 24 
Insertion into a string, 374—81 
Instruction execution times, 505—06 
Instruction set 
alphabetical list, 505-06 
numerical list, 506 
Interpolation in tables, 70 
Interrupt Disable (I) flag 
accepting an interrupt, 65 
changing in stack, 66 — 67 
CLI, 5, 123 
meaning, 5 

position in status register, vii, 105, 509 
RTI, 66, 508 

saving and restoring, 57, 123 
SEI,5,67, 123 
setting in stack, 66—67 
testing, 105, 107 
Interrupt enable register (in 6522 VIA), 63-64, 477, 516 
Interrupt flag registers (in 6522 VIA), 59, 60, 63-65, 477, 516 
Interrupt response, 65 — 66, 508 
Interrupt status 
changing in stack, 66 — 67 
saving and restoring, 67, 123 
6502 CPU, 65-66, 123 
6522 VIA, 63-65, 477, 516 
Interrupts. See also Enabling and disabling interrupts 
accepting, 65-68, 508 > 
buffered, 480-89 
elapsed time, 490- 503 
flags (6522 VIA), 63-65, 477, 516 
handshake, 464-89 
order in stack, 66 

programming guidelines, 65 — 68, 153-55 
real-time clock, 490-503 
reenabling, 66—67, 123 
response, 65 — 66 
service routines, 464 — 503 
6522 VIA, 63^5, 472-79 
6850 ACIA, 464-71, 480-89 
Interrupt service routines, 464-65, 472-73, 480-81, 490 
errors, 153 — 55 
examples, 464 — 503 
main program, communicating with, 154 — 55,464—65, 

472-73,480-82 
programming guidelines, 65 — 68 
real-time clock, 490-503 
6522 VIA, 472-79 
6850 ACIA, 464-71, 480-89 
Inverted borrow in subtraction, 2, 23 — 24, 135 
Inverting bits, 17, 18,91 
Inverting decision logic, 134, 136, 137 
I/O control block (IOCB), 440-53 
I/O device table, 51-52, 440-53 



JMP, 2, 5, 141 

absolute addressing, 141 
addressing modes, meaning of, 141 
indirect addressing, 35 — 36 
page boundary, error on (indirect), 1512 
JSR,3 
addressing modes, meaning of, 141 
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JSR (continued) 

offset of 1 in return address, 3, 44-45 

operation, 508 

return address, 3 

variable addresses, 415-17 
Jump table, 35-37, 152,415-17 

implementations, 142 



LDA.3, 11,12, 22 

LDX(LDY), 10, 11 

Limit checking, 23-25,37,1 86 

Linked list, 40-43, 441, 442, 447-48 

List processing, 40-42, 446-47 

Load instructions, 96—97 

addressing limitations, 1 1 

flags, 3, 22 
Logical I/O device, 51-52, 440, 441 
Logical instructions, 88—95 
Logical shift, 18, 19,20,49,92-93,329-36 
Logical sum, 90. See also Parity 
Long arrays (more than 256 bytes), 4, 32-34, 146 

full pages separately, 193, 195 
Lookup tables, 34-37,69, 70, 187-92 
Loops, 28-29 

reorganizing to save time, 68 - 69 
Lower-case ASCII letters, 185-86 
LSR, 19,20,49 



M 

Magazines specializing in 6502 microprocessor, 7 1 

Manual output mode of 6522 VIA, 58-62 

Masking bits, 52-53, 339-40, 345-46 

Maximum, 389-92 

Memory fill, 99, 193-96 

Memory test, 407-14 

Memory usage, reduction of, 70 

Millisecond delay program, 460—63 

Minimum byte length element, 393-96 

Missing instructions, 5, 73-123 

Move instructions, 98-99 

Move left (bottom-up), 197, 201 

Move multiple, 99 

Move right (top-down), 197,201-02 

Multibit shifts, 18, 19 

Multibyte entries in arrays or tables, 31, 34—37, 207—09, 

205-29 
Multidimensional arrays, 22 1 — 29 
Multiple-precision arithmetic, 38-39, 253-305 
Multiple-precision shifts, 325-44 

arithmetic right, 325 — 28 

digit (4-bit) shift left, 303 

logical left, 329-32 

logical right, 333-36 

rotate left, 341 -44 

rotate right, 337-40 
Multiplication, 39-40, 82-83 

by a small integer, 39, 82-83 

by 10, 167, 182-83 

decimal, 290-96 

multiple-precision, 261-66, 290-96 

16-bit, 236-39 
Multi-way branches (jump table), 34-37,415-17 



N flag. See Negative flag 

Negative, calculation of, 86-87, 244 



Negative (N) flag 

BIT, 4, 22, 137 

branches, 24-27 

comparisons, 136-37 

decimal mode, 3 

instructions, effect of, 505-06 

load instructions, 3 

position in status register, vii, 509 

SBC, 139 

store instructions (no effect), 3 
Negative logic, 152 
Nested loops, 28-29 
Nibble (4bits), 164, 167 
Nine's complement, 87 
NOP, filling with, 196 
Normalization, 93 — 94 
NOT instructions, 91-92 
Number sign (indicating immediate addressing), ix 
Numerical comparisons, 23-25 



Odd parity, 431 

One-dimensional arrays, 204—09 
One's complement, 91-92. See also EOR 
Operation (op) codes 

alphabetical order, 505-06 

numerical order, 506 
ORA, 17, 18, 89-90, 307, 323. See also Setting bits to 1 
Ordering elements, 31, 403-06 
.ORG (• — ) pseudo-operation, viii 
Output line routine, 425-27 
Overflow (V) flag 

BIT, 4, 22, 140 

branches, 27 

CLV, 122 

instructions affecting, 138 

position in status register, vii, 509 

Set Overflow input, 122 

uses of, 22, 24-25 
Overflow of a stack, 43, 107-08, 109 
Overflow, two's complement, 24-25, 110-12, 136-37, 139 



P (processor status) register, vii, 509, 533. Sec also Flags; Status 

register 
Page boundary, crossing, 4, 32 — 33 

error in indirect jump, 151 

example, 145-47 
Parallel/serial conversion, 18,49, 50 
Parameters, passing, 44—48, 157—58 
Parentheses around addresses (indicating indirection), viii 
Parity, 428-33 

checking, 428-30 

even, 428, 431 

generation, 431 — 33 

odd, 431 
Passing parameters, 44-48, 157-58 

memory, 44—46 

registers, 44 

stack, 46-48 
PC register, 509. See also Program counter 
Percentage sign (indicating binary number), viii, 142 
Peripheral Interface Adapter (6520 PIA), 53, 153, 457-58 
Peripheral Ready signal, 58-61 
PHA, 13,46,47,66,97, 120 
PHP, 67, 98, 122, 123 
Physical I/O device, 51-52, 440 

PIA (6520 Peripheral Interface Adapter), 53, 153, 457-58 
PLA, 12-13, 44, 45, 47, 66, 98, 121 
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PLP, 12, 67, 97 
Pointer, 2, 4, 15,41 

exchanging, 272, 302 

loading, 97 
Polling 

6522 VIA, 60, 477 

6850 ACIA, 569, 487 
Pop instructions, 121 
Position of asubstring, 355-60 
Postdecrement, 129 

stack pointer, 5, 13 
Postincrement, 128 
Postindexing (indirect indexed addressing), 2,4, 9, 12,32 — 34, 

130, 141 
Predecrement, 128-29 
Preincrement, 127-28 

stack pointer, 5, 13 
Preindexing (indexed indirect addressing), 9, 12, 33, 51 — 52, 

130, 141 
Progam counter, 509 

JSR, 3, 141,508 

RTS, 3, 36-37, 508 
Programmable I/O devices, 53 — 54 

advantages of, 53 

initialization, 454—59 

operating modes, 53 

6522 VIA, 54-65, 472-479 

6850 ACIA, 464-71, 480-89 
Programming model of 6502 microprocessor, 509 
Pseudo-operations, viii — ix, 507 
Push instructions, 120—21 



Queue, 42-43, 481-82 

Quotation marks around ASCII string, ix 



RAM 

filling, 193-96 

initialization, 14— 15, 148 

saving data, 13—14 

testing, 407- 14 
Read-only ports, 49-51 
Ready flag (for use with interrupts) , 464, 472 
Real-time clock, 490-503 
Reenabling interrupts, 66 — 67, 123 
Reentrancy, 44, 46-48, 67-68 
Registers, vi-vii, 6— 14, 509 

functions, 6 

instructions, 7 

length, vi — vii 

order in stack, 65-66,120 

passing parameters, 44 

programming model, 509 

saving and restoring, 120—21 

special features, 6, 10 

transfers, 10 
Register transfers, 10, 98, 100 

flags, 3 
Reset 

Decimal Mode flag (no effect), 3 

6522 VIA, 57 
Return instructions, 118- 19. See also RTS 
Return with skip instructions, 119 
RIOT, 53 
ROL, 19, 20, 49 

ROM (read-only memory), 49, 407 
ROR, 18, 19, 20, 49 
Rotation (circular shift), 18, 19, 20, 94, 337-44 



Row major order (for storing arrays) , 221 , 537 
RTI, 66, 508 
RTS, 3, 102 

addition of 1 to stored address, 3, 36 

indexed jump, 36 

operation, 508 



s 



S register. See Stack pointer 
Saving and restoring interrupt status, 67, 123 
Saving and restoring registers, 66, 120— 21 
Saving and restoring D flag, 3, 74—75 
SBC, 2, 16, 135 
Carry flag, 2, 135 
CMP, difference from, 16 
decimal mode, 3, 81 
decrementing accumulator by 1, 3, 81 

operation, 2, 135 
Scratchpad (pageO), 6 
Searching, 37, 397-402 
SEC, 2, 76 
SEI, 5,67, 123 

Semicolon indicating comment, viii 
Serial input/output, 18, 53,464-71,480-89 
Serial/parallel conversion, 18, 53 
Set instructions, 101 

Set Origin (.ORG or * - ) pseudo-operation, viii 
Set Overflow input, 122 
Setting bits to 1,17, 18,89-90,306-08 
Setting directions 

initialization, 457— 58 

6522 VIA, 54, 57 
Setting flags, 90 
Shift instructions, 18-20, 92-94 

diagrams, 19 

1/0,49-51 

multibit, 18, 20 

multibyte, 325-44 
Sign extension, 20, 84, 87-88, 325-28 
Sign flag. See Negative flag 
Sign function, 88 
Signed branches, 1 10— 12 
Signed numbers, 24—25 
16-bit operations, 2, 41 

absolute value, 86—87 

addition, 75, 76, 230-32 

comparison, 84-85, 249-52 

counter, 4 

decrement by 1, 29, 81 -82, 137 

division, 240—48 

increment by 1, 4, 29, 80, 81, 137 

indexing, 33—35 

multiplication, 236—39 

pop, 121 

push, 121 

registers, lack of, 2, 41 

shifts, 92-94 

subtraction, 77, 79, 233-35 

test for zero, 43, 95, 245 
6520 Peripheral Interface Adapter (PI A) , 1 53, 457 - 58 
6522 Versatile Interface Adapter (VIA), 54-65, 458, 472-79, 
510-16 

active transition in, 56, 59 

addressing, 54, 55, 511 

auxiliary control register, 56, 62—63, 515 

automatic modes, 58 — 62 

block diagram, 511 

control lines, 57—61 

control registers, 54—56, 515 

data direction registers, 54, 57, 513 
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6522 Versatile Interface Adapter (VIA) (continued) 
differences between port A and port B, 61 
independent mode, 58-59, 62, 63 
initialization examples, 57-63, 458 
input control lines, 57 - 59 
input/output control lines, 57-61 
input port, 512 

internal addressing, 5.4, 55, 511 
interrupt enable registers, 63-64, 516 
interrupt flag registers, 59, 60, 63-65, 516 
interrupts, 63 - 65, 472 - 79 
I/O ports, 512 
manual mode, 58—62 
operating modes (summary), 62, 63 
output registers, 512 

peripheral control register, 56, 59-62, 515 
pin assignments, 510 
read strobe, 59 — 61 
registers, 5 1 1 
reset, 57 

shift register, 62, 514 
timers, 62, 513-14 
write strobe, 59-61 
6530 Multifunction Device (RRIOT), 458 
6532 Multifunction Device (RIOT), 458 
6551 AC1A.458 

6800 microprocessor, differences from 6502, 5, 135, 138 
6809 microprocessor, differences from 6502, 5, 89, 90, 135 138 
6850 ACIA, 458-59, 464-71, 480-89 
Skip instructions, 117 
Software delay, 460-63 
Software stack, 43 
Sorting, 403-06 
SP register. See Stack pointer 
Special features of 6502, summary of, 2 -6 
Stack, 2, 3, 5, 12-13 
accessing through indexing, 46 
changing values, 66—67 
data transfers, 5, 13 
downward growth, 36 
limitation to 256 bytes, 2 
overflow, 43 
page 1, location on, 2, 13 
passing parameters, 46-48 
PHA, 13,46,47,66,97,120 
PHP, 67, 98, 122, 123 
PLA, 12-13, 44, 45, 47, 66, 98, 121 
PLP, 12, 67,97 
pointer, 5 
saving registers, 13 
software, 43 
underflow, 43 
Stack pointer 
automatic change when used, 5, 13 
comparison, 85 
contents, 5 
decrementing, 81 
definition, 5 

dynamic allocation of memory, 46 — 47 
incrementing, 80 
loading, 10, 96 
next available address, 5 
page number (I), 2 
reduction, 46-47 
size of change, 147 
storing, 10, 98 
transfers, 98 
Stack transfers, 5, 13 
Status bit. See Flags; Status register 
Status register 
changing, 97 



Status Register (continued) 

changing in stack, 66-67 

definition, vii, 509 

loading, 6, 97 

organization, vii, 509 

storing, 6, 98 

transfers to or from accumulator, 98 

unused bit, vii 
Status signals, 52-53 

Store instructions, effect on flags (none), 3, 136 
String operations, 37, 345 - 8 1 

abbreviations, recognition of, 346, 355, 356 

compacting, 396-97 

comparison, 345-48 

concatenation, 349-54 

copying a substring, 361-67 

deletion, 368-73 

insertion, 374— 8! 

position of substring, 355-60 

search, 37 
Strobe from 6522 VIA, 59, 61 
Subroutine call, 3, 117-18. See afao JSR 

variable addresses, 117-18 
Subroutine linkage, 3, 507 
Subscript, size of, 158, 211, 216, 221 
Subtraction 

BCD, 3, 77-79, 285-89 

binary, 2, 16,76-79 

Carry flag, 2, 135 

decimal, 3, 77-79, 285-89 

8-bit, 2, 16, 77-79 

inverted borrow in, 2, 23 — 24, 135 

multiple-precision, 38, 257-60 

reverse, 78 

setting Carry first, 2, 16, 38 

16-bit, 77-79, 233-35 
Subtraction instructions 

in reverse, 78 

with borrow, 79 

without borrow, 76-77 
Summation 

binary, 30, 382-88 

8-bit, 30, 382-84 

f6-bit, 385-88 
Systems programs, conflict with, 134 



Table, 34-37, 69, 70, 187-92 
Table lookup, 34-37, 69, 70 
Tail of a queue, 481 —82 
Ten's complement, 87 
Terminal I/O, 418-27 
Testing, 94-95 

bits, 17,21-22,26-27,95 

bytes, 22-27, 94-95 

multiple-precision number, 271, 301 

16-bit number, 43, 90, 95 
.TEXT pseudo-operation, viii 
Threaded code, 42 
Threshold checking, 21, 23-25 
Timeout, 460-63 
Timing for instructions, 505-06 
Top of stack, 5 

Transfer instructions, effect on flags, 3, 22 
Translate instructions, 123 
Trivial cases, 158 
TSX, 10, 22, 46, 98 
Two-byte entries, 31,32, 34-35, 123 
Two-dimensional arrays, 39-40, 210-20 
Two's complement, 86 - 87 
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Two's complement overflow, 24-25, 139, 140 
TXS, 10,96 
flags, effect on (none), 3, 22 



Y register. See Index registers 



u 

U ART. See 6551 ACIA; 6850 ACIA 
Unconditional branch instructions, 102—03 
Underflow of stack, 43, 85 
Upside-down addresses, 5 



V (Overflow) flag, 22, 24-25, 27, 122, 136, 138, 139 
Variable base addresses, 32 — 33 

w 

Wait instructions, 121-22 

Word alignment, 141 

Word boundary, 141 

.WORD pseudo-operation, viii, 45 

Wraparound on page 0, vii, 52, 130 

Write-only ports, 49-53, 152, 153, 155 



X register. See Index registers 



Z flag. See Zero flag 

Z-80 microprocessor, differences from 6502, 3, 5, 135 

Zero flag 

branches, 26— 27 

CMP, 22-23, 136 

decimal mode, 3 

INC, 29, 137 

inversion in masking, 21, 89 

load instructions, 3, 22 

masking, 21 

meaning, 136 

position in status register, vii, 509 

transfer instructions, 3, 22 

uses of, 21,26-27 
Zero page, special features, 6 
Zero page addressing modes 

direct, 7, 10-11, 14 

indexed, 8, 11-12 

instructions, 7 



